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Introduction 


It is with a sense of satisfaction that we present to you 
this selection of computer programs for your Commodore 16. 


We have, in our selection, attempted to answer the 
question: 


"What do you use a microcomputer for?" 


You will find routines in this book which cover the use of a 
micro at home, in business, at school and for pleasure. 


The programs in the selection are laid out in the following 
format: 


Program commentary. 

Program Listing. 

On occasion a photograph of the screen or a 
printout. 


The programs themselves exhibit many styles of construction 
and more than one style of presentation. 


We have used two approaches when dealing with the Commodore 
editing characters. If we had used a Commodore pr inter then 
we could have used the normal Commodore symbols for them. We 
have instead, in some programs, used the CHR$(nn) code for 
these screen positioning characters. Other programs have 
been filtered through the "TIDY'' program to replace the 
Commodore characters with the following: 


ALL strings of the screen positioning characters 
start with the character [ and finish with the 
character ]}. 


cursor-home is replaced by CH 
clear-screen is replaced by CS 
cursor-down is replaced by CD 
cursor-up is replaced by CU 
cursor-Left is replaced by CL 
cursor-right is replaced by CR 
reverse-on is replaced by RON 
reverse-off is relaced by ROF 

the math sign pi is replaced by Pl 
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Some of the programs are almost totally “user-friendly’ and 
some are quite terse. Some of the programs are well Littered 
with commentary Lines and some are quite sparse. 


We have, in our programs, shown off the machine as far as we 
could. 


In the main we have used only the cassette as our backing 
storage device, but we have included one suite of programs 
to show the use of the disk system. 


We must mention at this point the possibility of bugs. It is 
possible that we have left a few in the code. Hopefully, 
through the efforts of Prentice-Hall in’ carrying out field 
tests, these will be at a minimum. If there are any left, 
then we take this opportunity to apologise for them. 


However, in a sense, none of these programs is complete. 
They could all be expanded in various ways. One of the joys 
of computing is to take a simple routine and give it a 
professional user-friendly appearance. We have not attempted 
to make our programs complete in this sense. This is left up 
to you. Consider this book to form part of your software 
library. 


It might be interesting at this point do describe how this 
book was produced. The programs were developed, tested and 
debugged on our C-16s. We used Commodore 1541 Single Disk 
Drives for program storage at this point. We then created 
sequential files of the program listings using the C-16s. 
This was done by OPENing a sequential file on the disk and 
forcing the Listing into it. 


Once we had our Listings on disk, we then moved over to our 
Commodore 64s in order to use the EASYSCRIPT word processing 
package to write the book. We moved over to the (-64 simply 
because we did not have access to word processing on the 
C-16s. 
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Pi Dice 


A gambler's delight, this program rolls three dice. 
This could be extended into a game where you bet against 
computer. 


COMMANDS 


Key in the program and RUN. 
Press any key to roll the dice. 
RUN/STOP key stops program. 


10 REM DICE 

20 REM xxx*x 

30 REM 

40 SCNCLR 

50 COLOR 0O,1:REM BLACK SCREEN 
60 COLOR 1,8:REM YELLOW INK 

70 COLOR 4,1:REM BLACK BORDER 
80 PRINT 

90 PRINT TAB(20)"DICE" 

100 PRINT:PRINT:PRINT 

110 PRINT TAB(12);"*THIS PROGRAM ROLLS" 
120 PRINT TAB(15)-""THREE DICE" 
130 REMAKAAKKAKAKKAAAKKKKKKKKK 
140 SS$=CHR$(32) 

150 T$=S$: ES=S$+tS$+S$+S$ 

160 FOR N=0 TO 4 

170 S$=S$+S$ 

180 NEXT 

190 SS=S$+t+ES 

200 REM S$ CONTAINS 36 SPACES 
210 RS=CHRS$( 188) 

220 AS=R$+TS+TS 

230 BS=TS+RS+TS 

240 CS=TS+TS+RS 

250 DS=RS+TS+RS 

260 REM DOT PATTERNS IN STRINGS 
270 DIM DICES$(2,2) 

CBO REMARK AKKAKAKKKKAKAKKKKKK 

290 DO 

300 = CHAR ,11,20,"PRESS ANY KEY TO ROLL" 


the 


430 : 


440 : 


390 
600 


650 


660 


690 
700 
710 


770 


LOO 


REM 
REM 
DIC 
DIC 
DIC 
RET 
REM 
REM 
REM 
REM 
DIC 
DIC 
DIC 
RET 
REM 
REM 
REM 
DIC 
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GETKEY WS 
CHAR ,0,12,''':REM POSITION CURSOR 
FOR N=0 TO 8 
PRINT S$ 
NEXT 
REM CLEAR PREVIOUS THROW 
REM x kk ek a A I a 
FOR N=0 TO 2 
VLZ=1+6*RND(1) 
ON VL% GOSUB 620,700,770,840,910,980 
NEXT 


REM GENERATE PATTERNS 
REM A Raa Raa a Raa a IK 


CHAR ,0,12,"''2REM POSITION CURSOR 


FOR N=0 TO 2 
PRINT,DICES(0,N) ,DICES(1,N) ,DICE$(2,N) 
NEXT 


REM PRINT PATTERNS 
REM kaa RA aA A RAK RR 


FOR D=0 TO 200:NEXT:REM DELAY 
Pp 


KKKKKKEKKKKKKKKKK 


SUBROUTINES 


+ + + & 
+ + + + 


KEKKKKKKKKKAKKKAKK 


ONE 
ES(N,0)=E$ 
E$(N,1)=BS 
ES(N,2)=E$ 


URN 
KKK A AIA IK KARRI RIT IK 


KKKKKKKKKKKKKKKKKKAKK 


TWO 

TWO 
E$(N,0)=AS 
ES(N,1)=ES 
ES(N,2)=CS 


URN 
POR IOK IIR IR KTR RR OK KK 


KKKKKKKKEKKEEKKKKKKKKK 


THREE 
ES(N,Q)=AS 


Dice 


Pl 


780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 


Dice 


DICES(N,1)=B$ 
DICES(N,2)=C$ 

RETURN 
REMAAKKK KKK KAKKKKKK EK KK OK 
REMAKKKK KKK KKKKKKEKKKK KK 


REM FOUR 

DICES(N,O)=DS 
DICES(N,1)=ES 
DICES(N,2)=D$ 


RETURN 
REMKKKKKK KA KKKKKKEKKK KKK 


REM 1 III IO ICI A Rk ae 


REM FIVE 

DICES(N,O)=DS 
DICES(N,1)=BS 
DICES(N,2)=DS$ 


RETURN 
REMARK KK i IK IR KR IO Ok 


REM AKA A KK RRR IK ok 
REM SIX 

DICES(N,O)=DS 
DICES(N,1)=DS 


1000 DICES(N,2)=D$ 


1010 RETURN 
1020 REMAKK KK KKKKKKKKKKKKKKK 


1030 REMKKKK KA KAKKKKKKKKK IK 


OPC-B 


4 
P2 Sounds 


This program creates some sounds which you might find useful 
in programs. 


COMMANDS 


Key in the program and RUN. 
Keys 1 to 8 select the sound. Key 9 stops the program. 


10 REM SOUNDS 

20 REM xxxxxx 

30 REM 

40 COLOR 0,7,2:REM BLUE SCREEN 

50 COLOR 1,2:REM WHITE INK 

60 COLOR 4,4,4:REM CYAN BORDER 

TO REM A KAR KKK KK KKK KK KKK KK KAR RK KK 

80 SCNCLR:PRINT 

90 PRINT TAB(7)"SELECT SOUND BY PRESSING: 
100 PRINT:PRINT 

110 PRINT TAB(9)CHRS(18)"' KEY 1 ">; 

120 PRINT TAB(17)CHRS(146)"- MACHINE GUN" 
130 PRINT 

140 PRINT TAB(9)CHRS$(18)" KEY 2 ">; 

150 PRINT TAB(17)CHRS$(146)"- EXPLOSION" 
160 PRINT 

170 PRINT TAB(9)CHRS(18)"' KEY 3 "; 

180 PRINT TAB(17)CHRS(146)''- SHOT AND RICOCHET" 
190 PRINT 

200 PRINT TAB(9)CHRS(18)"' KEY 4 "'; 

210 PRINT TAB(17)CHR$(146)"- ALARM BELL” 
220 PRINT 

230 PRINT TAB(9)CHRS(18)" KEY 5 “'; 

240 PRINT TAB(17)CHRS(146)"- BOUNCE" 

250 PRINT 

260 PRINT TAB(9)CHRS(18)" KEY 6 "'; 

270 PRINT TAB(17)CHR$(146)"- BREAKING WAVE" 
280 PRINT 

290 PRINT TAB(9)CHRS(18)" KEY 7 "7 

300 PRINT TAB(17)CHRS(146)"- SURPRISE" 
310 PRINT 

320 PRINT TAB(9)CHRS(18)" KEY 8 "; 


P2 


Sounds 


PRINT TAB(17)CHR$(146)"'- ALIEN SPACESHIP" 
PRINT : 
PRINT TAB(9)CHRS( 18)” KEY 9 "'; 
PRINT TAB(17)CHRS$(146)""- STOP PROGRAM" 
REM AAR ARR ARR A RAK IK RR RIK 
DO 
- DO 

GETKEY A$ 

SL=ASC(AS$)-48 
LOOP UNTIL SL>O AND SL<10 
> ON SL GOSUB 490,580,700,810,950,1030,1120,1250 
LOOP UNTIL SL=9 


END 
REM KX XKKKKKKKKKKKKAKKKKKKKKKKK 


REMKXKKKKKKKKKKKKKAKKKKKKKKKKK 


REM MACHINE GUN 
VOL 8 
FOR N=0 TO 10 
SOUND 3,1000,2 
FOR DE=0 TO 35:NEXT 
NEXT 


RETURN 
REM IK ROK I IK 


REM KX ARK KKKKKKKKKKKAKKKKKKKKKK 


REM EXPLOSION 

SOUND 3,800,60 

FOR A=6 TO 8 STEP .05 
VOL A 

NEXT 

SOUND 3,600,40 

FOR A=8 TO 3 STEP .1 
VOL A 

NEXT 


RETURN 
REM 2x RRR IKI IKK II IK IK 


REMKXKKKKKKKKKKKKKKKKKKKKKKKK 


REM SHOT AND RICOCHET 
VOL 8 
SOUND 3,1000,3 


FOR DE=O TO 150:NEXT 
SOUND 2,1000,15 
FOR A=6 TO 1 STEP .2 
VOL A 
NEXT 
RETURN 
REM RII I IOI IO I I I I 


REM KX KKK KAKKKKKKKKKKKKKKKKEKKK 


910 
920 
930 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 


170: s 


1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 


P2 


REM ALARM BELL 
VOL 8 
FOR K=0 TO 5 
SOUND 1,917,8 
FOR N=0 TO 1 
SOUND 2,881,2 
FOR DE=O TO 45:NEXT 
SOUND 2,953,2 
FOR DE=O TO 45:NEXT 
NEXT 
NEXT 
RETURN 


REMAAAAAAAAAKAAAKKKKKKARKKK KA 
REM KAKKKAAA AA KKK KKKAKKK AKI K KK 


REM BOUNCE 

VOL 8 

FOR F=600 TO 900 STEP 50 
SOUND 1,F,.01 

NEXT 

RETURN 


REMAAAKAKAAKKKKKA KK KK KAR KK KK 
REM KARA AKA KAA KK RAR KA KEK KKK 


REM BREAKING WAVE 
VOL 8 

SOUND 3,500,60 

FOR DE=0 TO 200:NEXT 
VOL 6 : 

SOUND 3,800,100 


RETURN 
REM kkk aaa RK KARR RRR RI KK 


REM i ok ek ek ie RRR I TR ke kk 


REM SURPRISE 

VOL 8 

FOR F=800 TO 900 STEP 20 
= SOUND 1,F,.04 

SOUND 2,F+40,.02 
FOR DE=0 TO 10:NEXT 
SOUND 2,F-40,.02 

: FOR DE=0O TO 10:NEXT 
NEXT 

SOUND 1,10,10 

RETURN 


REMAKAAAKAAAAKKAKAKKK KAKA RK RK 
REMAAAAAAAKK A KKK KKKRKAKRKEK KKK 
REM ALIEN SPACESHIP 

VOL 4 

SOUND 1,800,134 


Sounds 


VOL A 
SOUND 2,F,.1 


F 
> DO UNTIL A<4 
: F=F-10 


RETURN 
REMAKAKAKKKKKKKKKKKKKEKKKKKK EK 


REMARK KA KKKKKKKKKKKKEKKKKEKKKEKE 
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P3 Musak 


This program turns your Commodore 16 into a_ musical 
instrument. The bottom three rows of keys” select three 
octaves. Keys 1 to 9 select note Length. 


While using this program we found that there was a delay 
between pressing a key and hearing the corresponding note. 
This can be reduced by removing REM statements and putting as 
many instructions as possible in a single line. We could not 
eliminate it completely. 


COMMANDS 


Key in the program and RUN. 
Stop the program by pressing the RETURN key. 


10 REM MUSAK 

20 REM xxxxx 

30 REM 

40 COLOR O,2:REM WHITE SCREEN 

50 COLOR 1,7,1:REM BLUE INK 

60 COLOR 4,10,4:REM BROWN BORDER 

70 SCNCLR 

80 PRINT:PRINT 

90 PRINT TAB(16)CHR$( 18) "------- 2 

100 PRINT TAB(16)CHR$( 18)" MUSAK " 

110 PRINT TAB(16)CHRS( 18) U------- - 

120 PRINT=PRINT 

130 PRINT TAB(6)" THIS PROGRAM LETS YOU PLAY" 
140 PRINT TAB(6)"MUSIC ON YOUR COMPUTER." 
150 PRINT 

160 PRINT TAB(6)'"'1 TO 9 SELECT NOTE LENGTH;" 
170 PRINT 

180 PRINT TAB(6)"Q W 
190 PRINT TAB(6)"A S 
200 PRINT TAB(6)"Z X 
210 PRINT TAB(6)"SEL 
220 PRINT 

230 PRINT TAB(6)"'RETURN KEY ENDS PROGRAM" 
240 REMARK KAKKKKKKKKKKKKKKKKKKR 


250 DIM FR(35):REM HOLDS NOTE FREQUENCIES 


E 
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260 
270 
280 
290 
300 
310 
520 
330 
340 
350 
360 
370 
380 
590 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


Musak 


FOR N=0 TO 35:READ FR(N)=:NEXT 
KBS(0)="+POIUYTREWQ" 
KBS(1)="*s2LKJHGFDSA" 
KB$(2)="=\/.,MNBVCXZ" 

REM KKKAKKKKKKKKKKKKKKKKKKKKK 


REM INITIAL CONDITIONS 


VOL 8 

DR=4:REM DEFAULT NOTE LENGTH 

REM KK tI I RI RR Re a 

REM PLAY 

DO 

‘3 DOZGET AS:LOOP UNTIL LENCAS)>0: 

>: REM ABOVE IS FASTER THAN GETKEY A$ 
> A=ASCCAS) 

> F=0 

> IF A>48 AND A<58 THEN DR=A-48:F=1:REM LENGTH 
> IF F=0 THEN GOSUB 720:REM FREQUENCY 
LOOP UNTIL ASCC(AS)=13 

VOL O 

END 

REA a RI RR Re eR a I 

REM I RII RR A RI RIK RR 

REM 

REM tk ak ok 

REM * * 

REM *x* DATA * 

REM * * 

REM kk KKK KK 

REM 

1) Ce TTS ee Teer ee ee ee ee 


REI AR Rk RR I RR IR ke 
REM NOTE FREQUENCY DATA 

DATA 917,911,904,897 ,889 ,881,873 864,854,844 834,822 
DATA 810,798,784,770,755,739,(722,704,685 ,664,643,620 
DATA 596,571,544,5 16,485 ,453,419,383 ,345 ,305 ,262,217 


REM X Aw K RRR Rk kk 
REM aR RIK IO KK 
REM 

REM kkk kkkkkk kkk kk 

REM * * 

REM *x SUBROUTINES * 

REM * * 

REM KkKKKKKKKKKK KKK 

REM 

REM Xk kK a a kk te kek 


REMAAKKKKKKKKKKKKKKKKKKKKKEK 
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REM FREQUENCY 
FOR M=0 TO 2 
FOR N=1 TO 12 
IF MIDS(KBS(M),N,1)=AS THEN F=1:2CT=M:NT=N~-1 
REM CT=OCTAVE, NT=NOTE 
: IF F=1 THEN M=2:N=12 
NEXT 
NEXT 
E=CT*12+NT:NO=FR(E)2REM NOTE FREQUENCY 
IF CT=2 THEN V=2:ELSE V=1:REM VOICE 
IF F=1 THEN SOUND V,NO,0: SOUND V,NO,6*DR 
RETURN 


Musak 


iat 


P4 Bouncing Ball 


This program shows a simple method of achieving animation 
using CHAR instructions. Animation is achieved by placing 
the ball on the screen and then placing a space on top. The 
ball is then placed one position on. 


COMMANDS 


Key in the program and RUN. 
The RUN/STOP key stops the program. 


10 REM BOUNCING BALL 

20 REM xxxxkkkkxkxkKkk 

30 REM 

40 COLOR 0O,8,7:REM YELLOW PAPER 

50 COLOR 1,1=REM BLACK PRINT 

60 COLOR 4,15,4:REM BLUE BORDER 

70 VOL 8 

80 X=12 Y=INT(1+23*RND( 1) ) 

90 DY=1:DX=1: IF RND(1)<.5 THEN DY=-1 


100 SCNCLR 

110 DO 

120 : CHAR 1,X,Y,CHR$(113) 

130 =: FOR N=0 TO 25:NEXT=REM REDUCES FLICKER 
140 : CHAR O,X,Y," " 

150 : IF X=0 OR X=39 THEN DX=-DX:SOUND 3,1000,2 
160 : IF Y=O OR Y=24 THEN DY=-DY:SOUND 3,1000,2 


170 =: X=X+DXIY=Y+DY 
180 LOOP 
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P5 Ball and wall 


This is an extension of the Bouncing Ball program, except 
that the POKE rather than the CHAR instruction is used. One 
of two alternative bounce angles may be chosen, depending on 
whether the ball hits the face or the corner of a brick. You 
could expand this program by introducing a bat to control the 
ball and having several Layers of wall. 


COMMANDS 


Key in the program and RUN. 
The RUN/STOP key stops the program. 


10 REM BALL AND WALL 

20 REM Kxxxxkk kak kkk 

30 REM 

40 COLOR 0,2:REM WHITE SCREEN 

50 COLOR 4,7,2:REM BLUE BORDER 

60 SC=3072:REM START OF SCREEN MEMORY 

70 CL=1024:REM DIFFERENCE BETWEEN SCREEN AND COLOR MEMORY. 
80 X=12 Y=INT(1+23*RND(1)) 

90 DY=1:DX=1: IF RND(1)<.5 THEN DY=-1 


100 VOL7 

110 GOSUB 300:REM BUILD WALL 

120 DO 

130 = P=SC+40*Y+X:2REM POSITION ON SCREEN 

140 : C=P-CL>REM COLOR MEMORY 

150 : POKE P,81:POKE C,3 

160 = GOSUB 390:REM TEST 

170 : IF X=0 OR X=39 OR F=1 THEN DX=-DX:SOUND 3,200*(4-F),2 
180 =: IF Y=0 OR Y=24 THEN DY=-DY:SOUND 3,800,2 
190 = X=X+DX:Y=Y+tDY 

195 : POKE P,32 

200 LOOP 


210 REMKKKKRAKKKKKAKKKKKKKKKKK KKK 
220 REM KKAKKKKKKRKKKEKKKKKKKKKK ER 


230 REM 

240 REM kkk k kkk kkk 
250 REM x * 
260 REM x SUBROUTINES * 
270 REM * * 


280 REM tek tek te tek dete tet tote tek 
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290 REM 

300 REM WALL 

310 SCNCLR 

320 FOR N=0 TO 24 

330 = POKE SC+30+N*40,102 
340 = POKE SC+30+N*40-CL,66 
350 NEXT 


360 RETURN 
370 REM KARA AHH A AK KK ARIK KK KKK IK 


SBD REM RAK KAKA HIKER EK EKER 


390 REM TEST 

400 F=0 

410 IF X<>29 AND X<>31 THEN RETURN:REM BALL NOT NEXT TO WALL 
420 IF X=29 AND DX=-1 THEN RETURN: REM MOVING AWAY FROM WALL 
430 IF X=31 AND DX=1 THEN RETURN:REM MOVING AWAY FROM WALL 
440 IF PEEK(P+DX)=102 THEN F=12POKE(P+DX) ,32: RETURN 

450 REM BALL HITS FACE OF BRICK 

460 CR=P+40*DY+DX 

470 IF PEEK(P+40*DY+DX)=102 THEN F=1:POKE(P+40*DY+DX) ,32: 
DY=-DY 

480 REM BALL HITS CORNER OF BRICK 

490 RETURN 


500 REMKAKRRAAKAAK KKK EKEKKKK RE KEK 
510 REMRR KAKA RAK EKKEKKEKEKKEK KER 
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P6 Digital clock 


This program uses the micro's internal timer to run a 24 hour 
digital clock. It could be extended so that several zone 
times are displayed simultaneously. 


COMMANDS 


Key in the program and RUN. 
Enter the current time. 


10 REM DIGITAL CLOCK 

20 REM xxx xKKKAKKKK 

30 REM 

40 UP$=CHRS$(145)2REM UP CURSOR 

50 S$=CHR$(32) 

60 FOR N=0 TO 2:S$=S$+SS$+SS°NEXT©REM SS CONTAINS 27 SPACES 
70 COLOR O,1:REM BLACK SCREEN 

80 COLOR 1,6:REM GREEN INK 

90 COLOR 4,1:REM BLACK BORDER 

100 REMAX AKKKKKKKKKKKKKKKEKKKKKKKK 

110 SCNCLR: PRINT: PRINT 

120 PRINT TAB(10)"24 HOUR DIGITAL CLOCK" 

130 PRINT TAB(10) [+ tttttttettttttt+ttte” 

140 PRINT:PRINT © 

150 PRINT TAB(11)"ENTER INITIAL TIME" 

160 PRINT 

170 DO 

180 : PRINT TAB(11): INPUT’HOURS";HZ 

190 : IF H%<0 OR HZ>23 THEN PRINT UPS$+SS$+UP$:T=12ELSE T=0 
200 LOOP UNTIL T=0 

210 AS=STRS(HZ)2 IF LENCAS)=2 THEN AS="0"'+RIGHTS(A$,1) 

220 IF LENCSTRS(HZ))=3 THEN AS=RIGHTS(STRSCHZ),2) 

230 PRINT 

240 DO 

250 : PRINT TAB( 11): INPUT'MINUTES' MZ 

260 : IF MZ<O OR MZ>59 THEN PRINT UPS$+S$+UP$:T=1: ELSE T=0 
270 LOOP UNTIL T=0 

280 BS=STRS(MZ)2IF LEN(BS)=2 THEN BS="'0"'+RIGHTS(BS,1) 

290 IF LENCSTRS(MZ))=3 THEN BS=RIGHTS(STRS(MZ),2) 

300 PRINT 


PG 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 


Digital clock 


DO 

> PRINT TAB(11):INPUT"SECONDS" ;SZ 

> IF $%<O OR S$Z>59 THEN PRINT UP$+S$+UP$:T=1:ELSE T=0 
LOOP UNTIL T=0 

C$=STRS(S%Z)21F LEN(CS$)=2 THEN C$="0"+RIGHTS(C$,1) 

IF LEN(STRS(SZ))=3 THEN C$=RIGHTS(STRS(SZ),2) 
TIS=AS+BS+CS$2REM SET CLOCK 


SCNCLR 


REM RK AK RK HH KK KI KK KHIR KEK 
DO | 
>: IF LEFTS$(TI$,2)="24" THEN T1$="000000" 

: DS=LEFTS(T1$,2) 4": “+MIDS(T1$,3,2)+"s "tRIGHTS(TIS$,2) 
> CHAR,15,10,D$ 

LOOP 


15 


16 
P7 Blobs 


This program uses the CIRCLE and PAINT commands to plot 
random regular shapes on the screen. 


COMMANDS 


Key in the program and RUN. 
Press space bar for new screen, Q@ to quit. 


10 REM THIS PROGRAM USES THE CIRCLE 

20 REM COMMAND TO CREATE A NICE EFFECT 

25 AS="C" 

30 DO WHILE A$<>"Q" 

40 GRAPHIC 3,1 

41 BG=INTCRND(1)*16+1) 

42 FG=INT(RND(1)*16+1)2: IF BG=FG THEN 41 

43 M1=INTCRND(1)*16+1)21F M1=FG OR M1=BG THEN 43 
44 M2=INTCRND(1)*164+1)21F M2=FG OR M2=BG OR MZ2=M1 THEN 44 
45 COLORO,BG:COLOR 1,FG:COLOR 2,M1:COLOR 3,M2 
50 FOR L=1 TO 100 

60 X=INTCRND(1)*315+1): Y=INTCRND(1)*190+1) 

70 SD=INTCRND(1)*5+3):C=INTCRND(1)*3+1) 

80 HT=INTCRND(1)*204+1) 2 WT=INTCRND(1)*20+1) 

90 CIRCLE C,X,Y,HT,WT,,,,360/SD 

95 PAINT C,X,Y 

100 NEXT L 

110 GET AS: IF AS="""" THEN 110 

120 LOOP 

130 GRAPHIC O 

140 COLOR 0O,7:COLOR 1,1 

150 END 
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P8 String pattern 


This program generates patterns of straight Lines reminiscent 
of ‘pin pictures’. It first obtains the end points of the 
reference Lines and the number of points per Line. The 
equations of the Lines in the form y=m*xtc are calculated, 
followed by the step sizes. 


The program then steps down each Line, drawing straight Lines 
to produce a pattern thus: 





COMMANDS 


Key in the program and RUN. 
Enter information as requested. 
Press any key to return to text mode. 


10 REM STRING PATTERN 

20 REM xxxxkxakkkk kkk 

30 REM 

40 COLOR 0,1:REM BLACK SCREEN 
50 COLOR 1,4,5:REM CYAN INK 
60 COLOR 4,1:REM BLACK BORDER 


TO REM KKK KAKA KKK KKK KKK KKK KKK K KK 


80 FOR N=0 TO 3 


90 : »DOo 

100 : SCNCLR 

110 = IF N=1 OR N=3 THEN MS="END": ELSE MS=""START" 
120 =: PRINT M$" POINT OF LINE’: 1+INT(N/2) 

USO) ss INPUT'X-COORDINATE (0 TO 319)";XZ(N) 


PY 


LOOP UNTIL XZ(N)>-1 AND XZ(N)<320 
RE a aa kk dk 
DO 
SCNCLR 
PRINT M$'' POINT OF LINE"; 1+INTCN/2) 
INPUT''Y-COORDINATE (0 TO 199)";YZCN) 
> LOOP UNTIL YZCN)>-1 AND YZON)<200 
NEXT 


0 
© 


: SCNCLR 

> INPUT''NUMBER OF POINTS PER LINE" ;KZ 
LOOP UNTIL KZ>0 

REE NA ok I ok dk a a aie a a 
REM PREVENT DIVISION BY ZERO 

IF XZ(O)=XZ01) THEN XZ(1)=XZ01) #1 
IF XZ(2)=XZ%Z(3) THEN XZ%Z(3)=XZ(3) +1 
REM I II IO IIa Ia 
REM CALCULATE PARAMETERS 

D 1=(X%(1)-X%Z(0))/KZ 
D2=(XZ(3)-X%Z02))/K% 
M1=(Y¥Z01)-Y¥Z%(0) / (X201)-XZ200) ) 
M2=(YZ(3)-Y202) )/ (X23) -X4(2) ) 
B1=YZ(0)-M1*XZ(0) 
B2=¥24(2)-M2*XZ(2) 

IE TELE ECCLES CSTE CCL CLS Lee. 
REM DRAW PATTERN 

GRAPHIC 1,1 

DRAW 1,XZ%Z(0),YZ(0) TO XZ(1),-Y4(1) 
DRAW 1,XZ(2),YA(2) TO XZ(3),-Y2%(3) 
FOR N=1 TO KZ 

= R1=XZCO0)+N*D1 

> §$1=M1*(XZ(0)+N*D1)+B1 

> R2=XZ(3)-N*D2 

> S2=M2*(XZ(3)-N*D2)+B2 

> DRAW 1,R1,S1 TO R2,S2 

NEXT 

GETKEY A$:REM ANY KEY TO END 
GRAPHIC CLR 

SCNCLR 

END 


Blobs 
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P9 Soft Keys 


This program can be very usefully adapted to set up the soft 
keys at the right of the keyboard. This can be used in 
program development to build in your most useful command 
strings. 


COMMANDS 


Key in the program and RUN. 


10 REM PROGRAMMING THE SOFT KEYS 

20 REM 

30 SCNCLR 

40 PRINT: PRINT:PRINT 

50 PRINT ''THIS PROGRAM ALLOWS YOU TO RE-PROGRAM" 
60 PRINT "THE FUNCTION KEYS AT THE RIGHT HAND" 
70 PRINT "SIDE OF THE KEYBOARD" 

80 PRINT: PRINT 

90 PRINT ''YOU CAN ENTER UP TO 128 CHARACTERS" 
100 PRINT ‘'OVER ALL 7 KEYS” 

110 PRINT: PRINT 

120 PRINT "ENTER STRING TO BE ENTERED TO EACH "’ 
130 PRINT "KEY, TERMINATING EACH WITH THE ESC KEY" 


150 PRINT: PRINT:PRINT ''PRESS ANY KEY TO START" 

160 GET BS:IF BS=""" THEN 160 

170 SCNCLR 

180 CH=1°F$=""K=1 

190 DO UNTIL CH=128 OR FS="FINISHED" 

200 PRINT:PRINT 

210 PRINT "PROGRAMMING KEY "'K 

220 AS="""2KS$="" 

230 DO UNTIL ASC(AS)=27 OR CH=128 

240 GET AS: IF AS="""" THEN 240 

250 IF ASCCAS)=27 THEN 280 

260 IF ASCCAS)=13 THEN PRINT CHRS(95)7 =ELSE PRINT AS; 
270 KS=KS+A$ 

280 CH=CH+1 

290 IF CH=128 THEN PRINT:PRINT "YOU HAVE USED UP 128 
CHARACTERS" 

300 LOOP 


OPC-C 


20 PQ Soft keys 


310 KEY K,K$ 
320 K=K+1:1F K=8 THEN FS="FINISHED" 
330 LOOP 


ol 
P10 Guess the number 
In this game the computer generates a random whole number 
between 1 and 100 and the player has to guess what it is. 
The instuctions for the game are included in the code. 
Remember to press the RETURN key after typing in your guess. 


COMMANDS 


Key in the program and RUN. 


10 REM GUESS THE NUMBER 

20 REM KxXRKKKAKKAKKKKER 

30 REM 

40 COLOR 0,10,7:REM BROWN SCREEN 

50 COLOR 1,8:REM YELLOW INK 

60 COLOR 4,14:REM BLUE BORDER 

70 SCNCLR:PRINT 

80 PRINT TAB( 10) CHRS(18)'222222222222222727227272" 


90 PRINT TAB(10)CHRS(18)"'? te 
100 PRINT TAB(10)CHR$(78)"? GUESS THE NUMBER a 
110 PRINT TAB(710)CHRS(18)"? cee 
120 PRINT TAB(10)CHRS(18)"222222222272272227222722" 
130 PRINT:PRINT 

140 PRINT TAB(5)""IN THIS PROGRAM YOU ARE ASKED" 
150 PRINT TAB(5)''TO GUESS A NUMBER BETWEEN a 
160 PRINT TAB(5)''AND 100." 

170 PRINT 

180 PRINT TAB(5)"IF YOU GUESS WRONGLY THE" 

190 PRINT TAB(5)''COMPUTER WILL TELL YOU WHETHER" 
200 PRINT TAB(5)"YOU ARE TOO HIGH OR TOO LOW." 
210 PRINT 

220 PRINT TAB(5)"WHEN YOU ARE FINISHED THE" 

230 PRINT TAB(5)"COMPUTER WILL TELL YOU THE” 
240 PRINT TAB(5)"AVERAGE NUMBER OF ATTEMPTS" 
250 PRINT TAB(5)"YOU TOOK.” 

260 PRINT:PRINT 

270 PRINT TAB(7)CHR$(18)" PRESS ANY KEY TO PLAY. 
280 GETKEY AS 

29D REMXAAAKKAKAKAKKKKEKKKKKEKEKEEKEKER 


DO 


a2 


310 


S200 
530: 
340 : 
500. 
360 : 
S703 
380 : 
590; 
400 : 
410 : 
420 : 
430: 
440 : 
450 : 


P10 Guess the number 


> AT=0:PL=0 
DO 
SCNCLR: PRINT: PRINT 
NZ=1+100*RND( 1) 
FOR K=1 TO 100 
AT=ATt+1 
PRINT TAB(6):INPUT''WHAT IS YOUR GUESS" ;G 
IF G>NZ THEN PRINT TAB(6)'"'TOO HIGH" 
IF G<NZ THEN PRINT TAB(6)"TOO LOW" 
IF G=NZ THEN PRINT TAB(6)"'CORRECT':K=100: PL=PL+1 
PRINT 
NEXT 
PRINT 
PRINT TAB(6): INPUT''WANT TO TRY AGAIN (Y/N) "SYS 
LOOP UNTIL ASCCY$)<>89 
REMXKKKKKKKKKKKKKKKKKKKKKKKKKEK 
> SCNCLR 
: AV=AT/PL 
> AV=CINT( 100*AV+.5))/100 
> CHAR,6,5,"'YOU TOOK AN AVERAGE OF:" 
: PRINT 
: PRINT TAB(5)AV;"PER SHOT" 
- PRINTS PRINT 
> IF AV<7 THEN PRINT TAB(6) CHRS( 18)" PRETTY GOOD! " 
> PRINT: PRINT 
PRINT TAB(6):INPUT''WANT TO PLAY AGAIN (Y/N) "YS 
LOOP UNTIL ASCCY$)<>89 
END 


REM kk oe oe kk I ok 
REM KKKKKKKKKKKKEKKKKKKKK KKK RK KE 
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P11 Reaction test 


This program could help develop your keyboard skills. The 
computer places a random character on the screen and_ starts 
to time your response. 


The object of the game is to press the required key as 
quickly as possible. 


When the program is complete an average reaction time is 
displayed on the screen. 


COMMANDS 


Key in the program and RUN. 


10 REM REACTION TEST 

20 REM kxxxk kaka kkk 

30 REM 

40 COLOR 0,12:REM BLACK BORDER 
50 COLOR 1,8:REM YELLOW INK 
60 COLOR 4,1:REM BLACK SCREEN 


70 DO 

80 : SCNCLR 

90 : CHAR,13,2,"REACTION TEST" 
100 CHAR; 15,5, =o ==" = ==4-5-- a 


110 =: CHAR,4,8,"" 

120 : INPUT’HOW MANY TRIES DO YOU WANT"; TRZ 
130 LOOP UNTIL TRZ>0 

140 TI$="O000000":REM INITIAL TIME VALUE 

150 REM  IIIO RORII  Ik 


160 FOR N=1 TO TRZ 


170 : SCNCLR 

180 : AZ=65+26*RND(1) 

190 : XZ=1+38*RND(1) 

200 =: YZ=1+22*RND(1) 

205 =: CHAR,XZ,YZ,CHRS(AZ) 
210 : DO 

220°: GETKEY AS 

230 : LOOP UNTIL ASCCAS)=AZ 
240 NEXT 


250 REMAAKK KK KAKKKAKKKEKKKK KK KKK KK IK 
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260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


Pil 


TZ=T1/60:REM TOTAL TIME IN SECONDS 
SCNCLR: PRINT: PRINT: PRINT 

PRINT TAB(8)"'NUMBER OF ATTEMPTS"TRZ 
PRINT: PRINT 

PRINT TABC8)"'TOTAL TIME'TZ'SECONDS" 
PRINT: PRINT 

AT=INTC(TZ/TRZ)*100+.5)/100 

PRINT TAB(C8)"'AVERAGE REACTION TIME": PRINT 
PRINT TABC7)AT''SECONDS" 

PRINT: PRINT: PRINT 

PRINT TABC8)=INPUT''WANT ANOTHER GO (Y/N)";YS 
IF ASCCY$)=89 THEN RUN 


END 
REMARK RAK KK RIK RIK IK RR 


REMARK KKK KK KKK I KKK IK KK II KICK 


Reaction test 


2 
P12 Mastermind 


This program implements the first version of the popular game 
by Invicta Ltd. 


The object of the game is to determine the color of _ four 
rectangles on the’ screen. The player has up to twenty 
attempts to work out the code. 


When an attempt has been entered, the computer responds by 
indicating whether you have a correctly colored rectangle in 
the correct position, or a correctly colored rectangle in the 
wrong position. 


For each correct color in the correct position, the computer 
places a purple dash to the right of the guess. 


For each correct color in the wrong position the computer 
places a cyan dash to the right of the guess. 


COMMANDS 


Key in the program and RUN. ; 
Enter your guess as e.g. RGYB. If you enter an invalid color 
a purple rectangle will result. 


10 REM MASTERMIND 
20 REM xkKxxxxxekkke 


30 REM 

LO REMAKKKKKKKKKKKKKKKKKKKAKKKKKKE 
50 H$=CHR$(19)2REM HOME CURSOR 

60 S$=CHRS(32):FS=SH2REM SPACE 

70 FOR N=0O TO 18:S$=SS$+FS+FS: NEXT 
80 REM S$ CONTAINS 64 SPACES 

90 COLOR 0,1:REM BLACK SCREEN 

100 COLOR 4,1:REM BLACK BORDER 

110 REM KK AKAKKKAKKKKKKKKKKKKKKKKK KKK 
120 REM INITIAL LINE 

130 SCNCLR: PRINT: PRINT: PRINT: PRINT 
140 P(0)=156:P(1)=156:P(2)=156:P(3)=156 


150 GOSUB 730:REM PRINT LINE 
160 REMARR KARA RK AK RAR RK RK KK 
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170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 


290 : 
300 : 


310 


320°; 
550°: 
340 : 
350°: 
360 : 
370 : 
$80": 
390 : 


400 


410 : 
420 : 


430 


440 : 
450 : 
460 : 


470 
480 


490 : 
500 : 


510 
520 
530 
540 


550 : 


560 
570 
580 
590 
600 
610 
620 
630 


Pl2 Mastermind 


REM SET UP TARGET PATTERN 
FOR N=O TO 3 
TON) =1+ INTC 4*RND(1))2CCNJETON)D 
NEXTZREM T(N) HOLDS CORRECT ANSWER 
REMXAAKAKAKKAKKKKKKEKKKEKKEKEKKKKK 
REM PLAY 
DO 
> L=L+1 
FOR N=0 TO 3:2C(N)=TCN)=2 NEXT 
REM KAKA KKKAKKKKKKKEKKEKEEKEKKKE 
REM GET GUESS 
DO 
PRINT CHR$(158)H$; 
INPUT "ENTER COLOR PATTERN (E.G. RGYB)";G$ 
: IF LEN(G$)<>4 THEN PRINT H$;S$ 
LOOP UNTIL LEN(G$)=4 
REMKXAAAKAKKKKKKKKKKKKKKKKKKKKK 
GOSUB 820:REM SET UP ARRAYS 
PRINT H$;S$ 
CHAR ,0,Lt4,'"':REM POSITION CURSOR 
GOSUB 730:REM PRINT LINE 
= REM XAKKKKKKKAKRKEKKKKKKKEEKKKKKE 
REM TEST FOR CORRECT COLOR IN CORRECT POSITION 
> PC=0 
FOR N=0 TO 3 
IF GCN)=CON) THEN PC=PC+12G(N)=8:C(N)=9 
: REM CHANGE G(N) AND CCN) ON MATCH 
NEXT 
REM XAKKKKKKK KKK KKKKKEKKKKKKKKK 
REM TEST FOR CORRECT COLOR IN WRONG POSITION 
> C€C=0 
: FOR N=0 TO 3 
FOR K=0 TO 3 
IF GON) =C(K) THEN CC=CC+12C(K)=92K=3 
: NEXT 
NEXT 
REM XAKKAKKEKKKKKAKKKKEKEKEKEKKKKKKKKEK 
REM ACT ON RESULTS 
IF PC>O AND PC<4 THEN GOSUB 1170 


> IF CC>O THEN GOSUB 1240 

LOOP UNTIL L=20 OR PC=4 

IF PC=4 THEN GOSUB 1080:ELSE GOSUB 930 

RE Mk I II II IO IO II I I I II IC 

REM FINISH 

PRINT: PRINT:PRINT CHRS( 158) 

PRINT TAB(9): INPUT" ANOTHER GAME (Y/N)";YS 
IF ASC(Y$)=89 THEN RUN 


980 : 
990 : 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 


Mastermind a1 
END 

REM 

REM KkKKK KKK KKK KKK 

REM * * 

REM * SUBROUTINES * 

REM * * 

REM KaKKKKKK KKK KKK 

REM 

REM GENERATE AND PRINT LINE 
A$S="""2REM NO SPACE 

FOR N=0 TO 3 
AS=AS+CHRS( P(N) )+CHRS(32)+CHRS( 184) 
NEXT 

PRINT TAB(14)AS; 

RETURN 

REM kik RK RK KKK RRR KK 
REMKKKKKKKKKKKKK KKK KK RK KK KK KKK 


REM SET UP ARRAYS 

FOR N=0 TO 3 

G(N)=0:P(N)=156 

IF MIDS(G$,N+1,1)="R" THEN G(N)=1-2P(N)=28 

IF MIDS(G$,N+1,1)="G"" THEN GCN)=2:P(N)=30 

IF MID$(G$,N+1,1)="B'' THEN G(N)=3:P(N)=31 

IF MIDS(G$,Nt+1,1)="Y"" THEN GCN)=4:2P(N)=158 
NEXT 


RETURN 
REMAXAKAKAKKAKAKKKK KK KK KEK KK KICK 


REM KKKKKKKKKKKKKKKKKKKKKEKKEKER 


REM PATTERN NOT FOUND 
SCNCLR:PRINT=PRINT=PRINT 
PRINT CHRS(158)2REM YELLOW INK 
PRINT TAB(8)"'THE CORRECT PATTERN WAS" 
PRINT=:PRINT 
FOR N=0 TO 3 

IF T(N)=1 THEN P(N)=28 

IF TCN)=2 THEN P(N)=30 
> IF TCN)=3 THEN P(N)=31 
> IF TCN)=4 THEN P(N)=158 
NEXT 
GOSUB 720 


RETURN 
REMAKAKKK KKK K RK KKK KK KKK KKK KKK 


REMARK KK KK KR aR Ra RK 
REM CORRECT GUESS 
SCNCLR:PRINT=:PRINT=: PRINT 

PRINT CHR$(158)2REM YELLOW INK 
PRINT TAB(14)"'CORRECT" 
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1510 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


Pl2 


PRINT: PRINT 
PRINT TAB(10)"YOU TOOK";L; "GOES." 
RETURN 


Td PERCE SCT TT TT ete e tt ee ee 
REM kk I IR I IO 
REM COLOR AND POSITION 

FOR N=1 TO PC 

PRINT CHRS$(156)CHRS(32)CHRS( 188) ; 
NEXT 

RETURN 


REM KKK KAKA KKKKKKKKKKRKKKKKER 
REMARK KKK KKK KKKKKKKKKKKKKEEEKE 


REM POSITION 

FOR N=1 TO CC 

PRINT CHR$( 159) CHRS(32)CHRS( 188) ; 
NEXT 

RETURN 


REM RXR KAKA KKKKKKKKKKKKEKKKKEKEKK 
REMK KA KKAK KKK AKKKKKKKEKKAKKKKK 


Mastermind 


29 
P13 Tic tac toe 


This program implements the old game of tic tac toe or 
noughts and crosses. 


COMMANDS 


Key in the program and RUN. 
Follow instructions and prompts as required. 


10 REM TIC-~TAC-TOE 

20 REM THIS PROGRAM ALLOWS TWO PLAYERS 

30 REM TO PLAY THE GAME OF TIC-TAC-TOE 

40 REM OTHERWISE KNOWN AS NOUGHTS AND 

50 REM CROSSES 

60 PRINT CHR$(147) 

70 DIM B$(3,3),T(3,3):REM STRING AND NUMERIC REPRESENTATION 
OF BOARD 

80 DIM C$(2)=2CS$C1)="X"= C$(2)="0" 

90 FOR I=1 TO 3:FOR J=1 TO 3:°BS(I,J)="' "ZINEXT J-,I 


“10 REM PRINT OUT BOARD BACKGROUND 

120 Y=6:X=15:GOSUB 540 

130 G1S=CHR$(32)+CHRS(98)+CHRS(32)+CHRS(98)+CHRS$( 32) 
140 G2$=CHRS$(99)+CHRS(123)+CHRS(99)+CHRS(123)+CHRS$(99) 
150 PRINT G1$ 

160 PRINT SPC(X);G2$:PRINT SPC(X);61$ 

170 PRINT SPC(X);7G2$:PRINT SPC(X);61$ 


200 Y=20:X=1:GOSUB 540 

210 PRINT "PLAYER 1 IS ‘'X* PLAYER 2 IS 'O'" 
220 FLS="""":P=1 

230 G=1 

240 DO UNTIL FLS="FINISHED" 
250 Y=17:X=1:GOSUB 540 

260 INPUT "ROW NUMBER '';RZ 
270 IF RZ<1 OR RZD>3 THEN 250 
280 Y=18:xX=1:GOSUB 540 

290 INPUT "COLUMN NUMBER" CZ 
300 IF C%<1 OR C%>3 THEN 280 


30 P13. Tic tac toe 


310 IF BS(RZ,CZ)<>" " THEN PRINT " ALREADY USED, PRESS ANY 
KEY'' : ELSE GOTO 340 

320 GET AS:IF AS=""' THEN 320 

330 Y=19:X=0:GOSUB 540 

335 PRINT " e:GOTO 250 
340 BS(RZ,CZI=HCECP) 

350 Y=4+2*R%2 X=134+2*CZ: GOSUB 540: PRINT BS(RZ,CZ) 

360 GOSUB 640:REM TEST FOR END 

370 IF FL$<>"FINISHED' THEN P=3-P 

380 G=Gt1:I1F G=10 THEN FLS="FINISHED" 

390 LOOP 

400 X=1: Y=1:GOSUB 540 

410 IF G=10 THEN PRINT "GAME DRAWN": END 

420 IF WC=0 THEN 450 

430 IF BS(1,WC)="X" THEN PRINT "PLAYER 1 IS WINNER" -ELSE 
PRINT "PLAYER 2 IS WINNER" 

440 END 

450 IF WR=0 THEN 480 

460 IF BS(WR,1)="'X" THEN PRINT ‘PLAYER 1 IS WINNER" :ELSE 
PRINT "PLAYER 2 IS WINNER" 

470 END 

480 IF BS$(2,2)="X" THEN PRINT “PLAYER 1 IS WINNER" “ELSE 
PRINT "PLAYER 2 IS WINNER" 

490 END 

500 : 

51052 

520 : 

530° 

540 REM SUBROUTINE TO POSITION CURSOR 

550 REM FOR PRINTING 

560 REM CURSOR POSITIONED AT POINT X,Y 

570 PRINT CHRS$(19) 

580 FOR I=1 TO Y:PRINT:NEXT I 

590 PRINT SPC(X); 

600 RETURN 

610 : 

620 : 

650: = 

640 REM TEST FOR END OF GAME 

650 = 

660 : 

670 REM TEST FOR ROW WINNER 

680 FOR RW=1 TO 3 

690 WN=(BS(RW,1)=BS(RW,2)) AND (BSCRW,2)=BS(RW,3)) 

700 IF WN AND BS(RW,1)<>" " THEN WR=RW:FLS="FINISHED"'=: RW=3 
710 NEXT RW 

(20°>>5 


Tic tac toe Sl 


REM TEST FOR COLUMN WIN 

FOR CL=1 TO 3 

WN=(B3$(1,CL)=B$(2,CL)) AND (BS$(2,CL)=B$(3,CL)) 

IF WN AND B$(1,CL)<>" " THEN WC=CL:2FLS="FINISHED':CL=3 
NEXT CL 


REM TEST FOR DIAGONAL 
WN=B$(1,1)=B$(€2,2) AND BS$(2,2)=BS(3,3) 
IF WN AND BS$(1,1)<>" " THEN FLS="'FINISHED" 


REM TEST FOR OTHER DIAGONAL 
WN=BS(3,1)=B$(2,2) AND B$(2,2)=BS(1,3) 
IF WN AND BS$(2,2)<>" " THEN FL$="FINISHED" 


RETURN 
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P14 Loan repayment period 


This program uses the formula 


-1 Log(1-(P.R)/(N.A)) 
j:-—— 
N Log(1+R/N) 


where T=Period in years 
P=Principal 
R=Rate of interest 
N=Number of payments each year 
A=Amount of each payment. 


This could be calculated by using a calculator, but it is far 
quicker to allow the computer to do the work for you. 


This program could be improved by designing a more _ robust 
input routine, to check for bad keyboard input. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM <- LOAN REPAYMENT PERIOD 

20 PRINT "[CS ]": PRINT: PRINT: PRINT 

30 PRINT "IF YOU ARE ABOUT TO TAKE OUT A LOAN" 
40 PRINT "IT COULD BE USEFUL TO CONSIDER HOW LONG" 
50 PRINT "IT WILL BE BEFORE THE LOAN IS REPAID." 
60 PRINT =PRINT =PRINT 

70 PRINT "'TO USE THIS PROGRAM YOU MUST INPUT" 

80 PRINT: PRINT 

90 PRINT TAB(5);"'AMOUNT BORROWED" 

100 PRINT TAB(5);""NUMBER OF PAYMENTS PER YEAR" 
110 PRINT TAB(5);""AMOUNT OF REPAYMENTS” 

120 PRINT=PRINT:PRINT 


Loan repayment period 


PRINT "PRESS ANY KEY TO CONTINUE" 
GET AS:IF A$="""' THEN GOTO 140 
PRINT "[CS ]" 
FOR Z=1 TO 9:PRINTINEXT Z 
PRINT TAB(5);""AMOUNT BORROWED a 
PRINT TAB(5);"*ANNUAL INTEREST RATE(Z)" 
PRINT TAB(5);"’NUMBER OF PAYMENTS PER YEAR" 
PRINT TAB(5);""AMOUNT OF PAYMENTS 5" 
Y=10:X=24:GOSUB 5000 
INPUT P 
Y=11:X=28:GOSUB 5000 
INPUT R:2R=R/ 100 
Y=12:X=32:GOSUB 5000 
INPUT N 
Y=13:X=25:GOSUB 5000 
INPUT A 
TM=-LOG(1-P*R/N/A)/LOG(1+R/N)/N 
YR=INT(TM) 
MT=INT( 12% (TM-YR))+1 
IF MT=12 THEN MT=0: YR=YR+1 
PRINT: PRINT: PRINT 
PRINT "LOAN WILL BE PAID OFF IN "’ 
PRINT YR;"' YEARS AND " 
PRINT MT;"" MONTHS” 
END 
REM SUBROUTINE TO PLACE CURSOR AT X,Y 


PRINT "[CH ]''s:REM CURSOR HOME 
FOR I=1 TO Y 

PRINT "[CD ]"; 

NEXT I 

FOR I=1 TO X 

PRINT "[CR ]"; 

NEXT I 

RETURN 
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P15 Depreciation 


This program may be used to calculate the depreciation in the 
value of an article arising from normal use through time. 


The program shows the effect of two common methods of 
calculating this depreciation. 


1. The straight Line method 


Under this method a fixed amount (a percentage of the 
initial value) is written off annually. The resultant 
graph shows a Linear relationship between value and year. 
If, for example, the initial value was $8000, and 25% of 
this original value was written off each year, then we 
have: 


Value 


Year 
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2. The diminishing balance method 


Under this method a percentage of the residual value at 
the beginning of each year is written down at the end of 
that year. This gives a curve Like: 








The program presents the two depreciation methods in the form 
of a table showing the amount to be written off over a period 
of years. 


COMMANDS 


Key in the program and RUN. 

Follow the instructions. 

Enter amounts as numbers only. This program works with = any 
currency. 


10 REM DEPRECIATION 

20 REM xxxxxKKKKKKKK 

30 REM 

40 SCNCLR 

50 COLOR 0,15,1:REM DARK BLUE SCREEN 
60 COLOR 1,8:REM YELLOW INK 

70 COLOR 4,15,1:REM DARK BLUE BORDER 


OPC-D 
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80 PRINT TAB(7)''DEPRECIATION CALCULATIONS” 
90 PRINT TAB 7 ) RRA ARAAKKKKEK KKK AKKRARK KK 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


PRINT:PRINT 

PRINT TAB(5)""THERE ARE TWO COMMON METHODS OF" 
PRINT TAB(5)"CALCULATING THE DEPRECIATION OF" 
PRINT TAB(5)"THE VALUE OF AN ASSET OVER A" 
PRINT TAB(5)"GIVEN PERIOD. THESE ARE:" 

PRINT 

PRINT TAB(5)"1. THE STRAIGHT LINE METHOD." 
PRINT 

PRINT TAB(5)"2. THE DIMINISHING BALANCE” 
PRINT TAB(8)"METHOD." 

PRINT:PRINT 

PRINT TAB(5)""THES PROGRAM SHOWS DEPRECIATION" 
PRINT TAB(5) "OVER A FIXED PERIOD USING BOTH" 
PRINT TAB(5)'’METHODS."’ 

PRINT:PRINT 

PRINT TAB(5)"PRESS ANY KEY TO CONTINUE” 


GETKEY A$ 
REM a oo ae kk oe ke Ik aa A a a 


REMAxxxaakakaaxxe aKkkkkkkkKkKkk 


SCNCLR 

PRINT: PRINT 

INPUT"VALUE OF ASSET ON ACQUISITION’; IV 
PRINT: PRINT 

PRINT"’IF YOU WROTE OFF A FIXED AMOUNT” 
INPUT"EACH YEAR, HOW MUCH WOULD IT BE"';A 
PRINT 

PRINT:PRINT'IF YOU WROTE OFF A PERCENTAGE" 
INPUT"EACH YEAR, WHAT WOULD IT BE" ;PR 
PRINT: PRINT 

PRINT"NUMBER OF YEARS TO BE PRESENTED” 
INPUT'"(1 TO 20)" 7ZYRZ 

REM NO TRAPS ON ENTRIES 

REM SILLY ENTRIES WILL GIVE SILLY RESULTS 
PRINT: PRINT 

PRINT "PRESS ANY KEY TO CONTINUE” 


GETKEY AS 
REMAKKAAKAAKAAK RAK RR KKK RK 


REM kkk a a I kk 

SCNCLR 

PRINT'YEAR","'STR. LINE",,"DIM. BAL.” 
PRINT,’ VALUE",,"’VALUE" 


PRINT 

VA=IV 

FOR N=1 TO YRZ 
VL=IV-A*N 


Pls 


550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
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REM VALUE=INITIAL VALUE - (FIXED AMT, * NO. OF YEARS) 
IF VL<O THEN VL=0 

VA=VA*(100-PR)/100 

IF VA<O THEN VA=0 

REM REDUCE VALUE BY A PERCENTAGE EACH YEAR 

DEF FNR(X)=CINT(X*100+.5))/100 

REM FIGURES CORRECT TO 2 DECIMAL PLACES AFTER POINT 
PRINTN,FNR(VL),,FNRCVA) 

NEXT 

GETKEY AS:REM ANY KEY ENDS PROGRAM 

END 
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STOCK CONTROL SYSTEM 


The next four programs form a rudimentary stock control 
system. As they are written they use the tape cassette for 
information storage, but they could easily be amended to use 
floppy disks instead. If you intend using your’ computer 
extensively for file handling of this type you would be well 
advised to consider floppy disks. 


The first program lets you set up the stock file initially. 
In its present form it allows only ten different types of 
stock item. We are sure the reader will be able to amend the 
program to increase this number if necessary. 


The next program is used to record all transactions, both 
additions to and withdrawals from stock. At present the 
program does not verify the data as it is entered. This 
would be a useful extension. 


The third program updates the stock file with the information 
held in the transaction file. This is a fairly complicated 
program, which we have tried to make self explanatory by the 
use Of PRINT and REM statements. This program also produces 
a List of items to be reordered. 


The final program allows the full stock file to be printed 
out. This could be done after the stock file has been 
created or after it has been updated. 


The full stock control system is: 
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PROGRAM P16 STOCK FILE CREATION 
INTO MEMORY OR PROGRAM 


STOCK FILE SAVES TO TAPE 


(| —|e9| 


TRANSACTION FILE 


PROGRAM P18 
€.8| [ecm |— 
STOCK FILE 


PROGRAM P17 ~=TRANSACTION FILE CREATION 


NEW STOCK FILE 


—/-\ 


TRANSACTION FILE 


STOCK REPORT 


er 2 


STOCK FILE 


STOCK FILE 
OUTPUT 
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This program creates the stock file. 
COMMANDS 


Key in the program and RUN. 
Have some blank tapes ready. 


10 REM STOCK FILE CREATION 

20 REM KKK KKKAKKKAKKKKKKER 

30 REM 

40 COLOR 0,2:REM WHITE SCREEN 

50 COLOR 1,7,3:REM BLUE INK 

60 COLOR 4,10,5:REM BROWN BORDER 

70 SCNCLR 

80 CHAR,10,2,'"'STOCK FILE CREATION" 

90 CHAR, 10; 3, 'ssssseessesseeesezs" 

100 CHAR,4,6,"'THIS PROGRAM SETS UP A STOCK FILE" 
110 CHAR,4,7,"0ON TAPE. THE STRUCTURE OF EACH" 
120 CHAR,4,8,"STOCK LINE IS:" 

130 CHAR,9,10,"STOCK NUMBER (1 TO 10)" 

140 CHAR,9,11,"DESCRIPTION CUP TO 30 CHRS)" 

150 CHAR,9,12,"'NUMBER IN STOCK" 

160 CHAR,9,13,"'REORDER LEVEL"' 

170 CHAR,9,14,"REORDER QUANTITY" 

180 CHAR,4,16,"'PLEASE ENTER DATA WHEN PROMPTED" 
190 CHAR,5,19,CHRS(18)+'' PRESS ANY KEY TO CONTINUE “ 
200 PRINTCHRS (146) 

210 GETKEY AS 

220 REM 8 RR IIT IO TOR I tk 

230 DIM NZ(9,2):DIM J%(9,2) 

240 FOR K=0 TO 9 

250) 3 “SCNCLER 

260 : CHAR,12,2,"STOCK NUMBER =""ZPRINT K+1 

270° 3 CHAR,9,5,''DESCRIPTION" 

280 = DRS="NONE" 

290 : REM EMPTY STRING ELEMENTS PREVENT VERIFICATION 
500 : CHAR,9,6,""Z INPUT DRS 

310 =: IF LENCDRS)>30 THEN DRS=LEFTS(DR$,30) 
320 : DS$(K)=DRS 

330 PRINT 


P16 


340 : 


350 


360 : 


370 


380 : 


390 
400 
410 


stock file creation 4] 


PRINT TAB(9): INPUT'’NUMBER IN STOCK"';NZ(K,0) 
PRINT 
PRINT TAB(9): INPUT'’REORDER LEVEL" ;NZ(K,1) 
PRINT 
PRINT TAB(9):INPUT''REORDER QUANTITY" ZNZ(K,2) 
NEXT 
REMAX KAKA KKKKKAKKKKKKKKAKEK KKK 
SCNCLR 
CHAR,4,2,""ENSURE THERE IS A TAPE IN THE" 
CHAR,4,3,''CASSETTE RECORDER READY FOR SAVING" 
CHAR,4,6,""WHAT IS THE NAME OF THE FILE" 
CHAR,4,7,"'"'2 INPUT NS 
REMXKKKKKKAKKKAKKKKAKKKKKKKKK 
BO: REM FILE SAVE STARTS HERE 

SCNCLR: CHAR,4,4,"" 

OPEN 1,1,1,N$ 

FOR K=O TO 9 

PRINT# 1,D$(K) 

: FOR J=O TO 2:PRINT# 1,NZ(K,J) 2 NEXT 
> NEXT 
= -CLOSE. 4 

REMKKAAAKKKAKKKKKKKKKKK KKK KKK 

SCNCLR 

CHAR,4,4,"REWIND CASSETTE RECORDER TO START" 
> CHAR,4,5,"0F FILE” 
> CHAR,4,8,"'PRESS ANY KEY WHEN READY” 
> GETKEY A$ 
CHAR,4,10,""" 
OPEN 1,1,0,N$ 
K=0 
DO WHILE ST=0 AND K<10 


: INPUT# 1,ES(K) 
: FOR N=O TO 2: INPUT# 1,JZ(K,N)=NEXT 
- K=K+1 
LOOP 
CLOSE 1 
REEMA a aI III I I II I IK 
SCNCLR 
F=1 
FOR K=O TO 9 
IF DS(K)<>ES(K) THEN K=9: F=2 
R=0 


DO WHILE F=1 AND R<3 
IF NZCK,RI<>JZ(K,R) THEN K=9:R=3:F= 
R=R+1 
LOOP 
NEXT 
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> ON F GOSUB 920,990 
LOOP UNTIL F=1 


END 
REMAKAA ARK KKK RRR RK KR RK KR KK 


REMKKAKKKKKKKEAKKKKK KKK KKK AK 


REM 
REM SUBROUTINES 


REM 
REM a a A II I I ae ek 


REMAKAKAKKKKKKKKKKKKEK KKK KKK A 

REM VERIFICATION CHECK PASSED 
CHAR,7,7,CHRS(18)+" VERIFICATION CHECK PASSED "' 
PRINT CHRS$( 146) 

CHAR,9,9,"'STOP CASSETTE RECORDER" 


RETURN 
REM&& Ra aR KAR RIK KK RR KR Re 


REM& AAR KKK RRR RIK RIK RK kk 
REM VERIFICATION CHECK FAILED 
CHAR,7,7,CHRS(18)+"' VERIFICATION CHECK FAILED " 
PRINT CHRS( 146) 
CHAR,5,10,""REWIND TAPE TO INITIAL POSITION" 
CHAR,8,12,"'PRESS ANY KEY WHEN READY" 
GETKEY A$ 


RETURN 
REM kk a ka Rk RK Rk a a a dk 


REM + kkk kk kk kkk 
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This program allows you to record up to 100 transactions. 
COMMANDS 


Key in the program and RUN. 
Have a blank tape ready. 


10 REM TRANSACTION FILE CREATION 
20 REM Kx KKKKKKKKKKKKKKKKKKKKEKK 
30 REM 

40 COLOR 0,2:REM WHITE PAPER 

50 COLOR 1,7,3:REM BLUE INK 

60 COLOR 4,10,4:REM BROWN BORDER 
70 SCNCLR 


100 CHAR,4,5,"'THIS PROGRAM ALLOWS THE USER TO" 
110 CHAR,4,6,"RECORD A SET OF TRANSACTIONS" 

120 CHAR,4,7,"AGAINST A STOCK FILE." 

130 CHAR,4,9,"THE TRANSACTION FILE STRUCTURE IS" 
140 CHAR,4,10,"AS FOLLOWS:" 

150 CHAR,9,12,"'STOCK NUMBER” 

160 CHAR,9,13,"CODE [1 - WITHDRAWAL" 

170 CHAR,9,14," [2 - ADDITION" 

180 CHAR,9,15,"QUANTITY" 

190 CHAR,4,17,"UP TO 100 ITEMS CAN BE HANDLED." 
200 CHAR,4,19,"ENTER DETAILS WHEN PROMPTED." 

210 CHAR,4,20,"ENTER A NEGATIVE STOCK NUMBER TO 
220 CHAR,4,21,"FINISH."' 

230 CHAR,5,23,CHR$(18)+" PRESS ANY KEY TO CONTINUE " 
240 PRINT CHRS(146) 

250 GETKEY A$ 

260 REMKXKKKKKKKKKKKKKKKKKKKKKKEE 

270 DIM TZ(99,2)2:DIM WZ(99,2) 

280 N=0:F=0 

290 DO WHILE N<100 AND F=0 


300 = SCNCLR:=PRINT 
310-3. =DO 

320°: PRINT 

330 : PRINT TAB(9); 


Pi? ‘Transaction file creation 


: INPUT" STOCK NUMBER(1 TO 10)";TZ(N,0) 
> LOOP WHILE TZ(N,0)=0 OR TZ(N,0)>10 
>: IF TZCN,0)<O THEN F=1 
R=0 
: DO UNTIL F=1 OR R=1 
: REMXKKKKKKKKKKKKKKEK 
: DO 
; PRINT 
: PRINT TAB(9); 
: INPUT'CODE (1 OR 2)";TZC(N,1) 
: LOOP UNTIL TZ(N,1)=1 OR TZ(N,1)=2 
; REMA kx kk KKKKKKKKKKK 
: DO 
: PRINT 
: PRINT TAB(9); 
: INPUT" QUANTITY"; TZ(N,2) 
: LOOP UNTIL TZC(N,2)>0 
: REMAKAKKKKKAKKKKKKK 
: R=1 
: LOOP 
N=N+1 
LOOP 
REM KKKKKKKKKKKKKKKKKKEKKKKKKKE 
SCNCLR 
CHAR,4,2,"ENSURE TAPE IS READY THEN PRESS” 
CHAR,4,3,"ANY KEY." 
GETKEY A$ 
CHAR,4,5,"‘WHAT IS THE NAME OF THE FILE?" 
CHAR,4,6,""S INPUT N$ 
R$=CHR$(13)2REM RETURN CHARACTER 
REM KKK KKK KKK KKKKKKKEKKKKKKK 
DO>REM FILE SAVE STARTS HERE 
> SCNCLR 
- CHAR;4,4,°"" 
= -OPEN 1,1,1,N$ 
: FOR K=0 TO 99 


: PRINT# 1,TZ(K,0) RS TZ(K,1) RS TZ(K,2) 


IF TZ(K,0)<1 THEN K=99 

NEXT 

CLOSE 1 

REM I I RR i a teak ae 


: SCNCLR 


: CHAR,4,3,"“REWIND CASSETTE RECORDER TO START" 


CHAR,4,4,"0F FILE." 
CHAR,4,7,"PRESS ANY KEY WHEN READY.” 


> GETKEY A$ 
5 REMKAKAAA KAA AKAKKKKKEKKKK KKK 


Pl? Transaction file creation 


810 
820 
830 
840 
850 
860 
870 


°) 
=) 
a) 


*) 
Oo 
o> ) 


CHAR,4,10,°°"' 
OPEN 1,1,0,NS$ 
K=0 
DO UNTIL K>99 OR ST<>0 
N=0 
DO UNTIL N>2 OR ST<>0 
INPUT# 1,WZ(K,N) 
N=N+1 
LOOP 
IF W4(K,0)<1 THEN K=99 
K=K+1 
LOOP 
CLOSE 1 
REMXXKAKAKKAKEKKKKEKKKKKKEKKEEKE 
SCNCLR 
CHAR, 15,10,CHR$(18)+" VERIFYING +CHRS( 146) 
F=1 
FOR K=0 TO 99 
FOR N=0O TO 2 
IF TZ(K,N)<>W%(K,-N) THEN K=99: F=2:N=2 
NEXT 
IF TZ(K,0)<O THEN K=99 
NEXT 
SCNCLR 
ON F GOSUB 1160,1220 
LOOP UNTIL F=1 
END 


REMAAAKAKKKKKEKEKKKEKKEKEKEKEKKKKKEKE 
REMAX KKKKKKKKKKKEKKEKKEKEKEKKERKEKE 


REM SUBROUTINES 
REM 


REDE RR kk kk dk kok 

REM* kkk kk RR kk kkk kkk 

REM VERIFICATION CHECK PASSED 
CHAR,7,8,CHR$(18)+' VERIFICATION CHECK PASSED “ 
PRINT CHRS$( 146) 

CHAR,9,11,"'STOP CASSETTE RECORDER” 


RETURN 
REMA KKK KARR KKK KEKE KKKKKK KKK KKK 


REM AA KR AK KIRK IO 
CHAR,7,8,CHRS$(18)+'' VERIFICATION CHECK FAILED " 
PRINT CHR$(146) 

CHAR,4,11,"REWIND TAPE TO INITIAL POSITION” 
CHAR,8,13,"PRESS ANY KEY WHEN READY" 

GETKEY A$ 

RETURN 
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P18 Stock file update and report 


This program updates the stock file and produces a List of 
items to be ordered. 


The program can output to the screen or to a= printer. It 
will work both with printers which have an automatic’ Line 
feed on carriage return (such as the Commodore MPS801) = and 
those which do not. 


COMMANDS 


Key in the program and RUN. 
Have your stock file tape, your transaction file tape and a 
blank tape handy. 


10 REM STOCK FILE UPDATE AND REPORT 

20 REM KEK KKK KK KKKKKKKKKEKKEKEKEKKKER 

30 REM 

40 COLOR 0,2:REM WHITE SCREEN 

50 COLOR 1,7,2:REM BLUE INK 

60 COLOR 4,10,4:REM BROWN BORDER 

70 SCNCLR 

80 PRINT: PRINT 

90 PRINT TAB(6)"STOCK FILE UPDATE AND REPORT" 

100 PRINT TAB( 6) "'SssSS S2sSSs25SssSsSssesses==2' : 

110 PRINT=PRINT 

120 PRINT TAB(4)"'THIS PROGRAM UPDATES A STOCK FILE" 
130 PRINT TAB(4)"'OF TEN ITEMS AND THEN SAVES IT" 
140 PRINT TAB(4)"BACK TO TAPE. THE PROGRAM ALSO" 
150 PRINT TAB(4)"PRODUCES A REPORT OF ALL ITEMS TO" 
160 PRINT TAB(4)""BE REORDERED." 

170 PRINT: PRINT: PRINT 

180 PRINT TAB(6)CHR$(18)"" PRESS ANY KEY TO CONTINUE "' 
190 GETKEY AS 

LOD REM KKK KK KKK KKKKKKKKEKEKKEKKKKKE 

210 SCNCLR:PRINT:PRINT 

220 DIM NZ(9,2) 

230 DIM JZ(9,2) 

240 DIM TZ(99,2) 

250 PRINT TAB(4)"WHAT IS THE NAME OF THE STOCK" 

260 PRINT TAB(4): INPUT FILE" NS 
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PRINT:PRINT 


PRINT TAB(4)"POSITION TAPE AT START OF STOCK" 
PRINT TAB(4)"FILE, THEN PRESS ANY KEY." 


GETKEY A$ 

REMKAKKK KA KKK KKERKKEKKKK KK EKER KK 
REM LOAD STOCK FILE 

SCNCLR: PRINT: PRINT 

OPEN 1,1,0,N$ 

K=0 

DO UNTIL K>9 OR ST<>0 


: INPUT# 1,D$(K) 

=: J=0 

2 DO UNTIL J>2 OR ST<>0 

: J=J+1 

- LOOP 

> K=K+1 

LOOP 

CLOSE) 

REMKKKKK KKK KKKKKKKKKKKKKKKRKKEKE 


SCNCLR: PRINT=- PRINT 


PRINT TAB(8)CHR$(18)" STOP CASSETTE RECORDER " 


PRINT: PRINT 


PRINT TAB(6)"WHAT IS THE NAME OF THE" 
PRINT TAB(6):INPUT''TRANSACTION FILE" ;NS 


PRINT: PRINT 


PRINT TAB(6)""POSITION TAPE AT START OF" 
PRINT TAB(6)''TRANSACTION FILE, THEN PRESS" 


PRINT TAB(6)"ANY KEY." 

GETKEY AS 

REMAKR KK KK KKK KEKE KK KEK KR RR KKK KEK 

REM LOAD TRANSACTION FILE 

SCNCLR: PRINT: PRINT 

OPEN 1,1,0,N$ 

K=0 

DO UNTIL K>99 OR ST<>0 

> J=0 

> DO UNTIL J>2 OR ST<>0 
INPUT# 1,TZ(K,J) 

: J=J+1 

7 LOOP 

> K=K+1 

LOOP 

CLOSE 1 


REMAKKAK KKK KAKA KEKE KKEKK ERK KEK RR KK 
SCNCLR: PRINT=:PRINT 


PRINT TAB(8)CHR$(18)" STOP CASSETTE RECORDER " 
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740 
750 
760 
770 


re Oe 
790 : 
800 : 
B10°. 
B20: 
850; 
840 : 
850 : 
860 : 
O70. : 


880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 


1040 : 
1050 : 
1060 : 
1070 : 
1080 : 
1090 : 
OO 
n by lat 0 
W204 
13043 
1140 : 
V1500: 
UtOO-s 
1170 : 
1180 "3 
VIGO. 
1200 : 
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PRINT: PRINT 
PRINT TABC11)"UPDATING COMMENCING" 
J=0 
DO UNTIL J>99 
K=TZ(J,0)-1 
LP=0 
DO WHILE K>=0 AND LP=0 
IF TZCJ,1)=1 THEN NZ(K,0)=NZ(K,0)-TZCJ,2) 
IF TZ(J,1)=2 THEN NZCK,0)=NZ(K,0)+TZ(J,2) 
PRINT" ."'; 
LP=1 
LOOP 
IF K<O THEN J=99 
J=J+1 
LOOP 
PRINT: PRINT 
PRINT TAB(C12)"“UPDATING COMPLETE" 
REM KR IO ITO I A dk tb 
PRINT: PRINT 
PRINT TAB(4)"WHAT IS THE NAME OF THE NEW STOCK" 
PRINT TAB(4):INPUT"FILE" NS 
SCNCLR: PRINT: PRINT 
PRINT TAB(4)"WIND TAPE TO WHERE YOU WISH TO" 
PRINT TAB(4)"SAVE THE NEW STOCK FILE, THEN" 
PRINT TAB(4)"'PRESS ANY KEY." 
GETKEY A$ 
REM KKK KKKKKAKKKKKKKKKKKKKA KKK KKK 
REM SAVE NEW STOCK FILE 
DO 
- SCNCLR2PRINT: PRINT TAB(4) 


RS$=CHRS$(13)2REM RETURN KEY 
OPEN 1,1,1,N$ 
FOR K=0 TO 9 
PRINT# 1,D$(K) RS NZC(K,0) RS NZ(K,1) RS NZ(K,2) 
NEXT 
CLOSE 1 


REN I OO TO kk bok 
SCNCLR: PRINT: PRINT 

PRINT TAB(8)CHRS(18)'' STOP CASSETTE RECORDER " 
PRINT: PRINT 

PRINT TAB(4)"'REWIND THE TAPE TO THE START OF" 
PRINT TAB(4)"THE NEW STOCK FILE THEN PRESS" 
PRINT TAB(4)"'ANY KEY." 

GETKEY A$ 

REM A KIO OR IO IIR 

REM LOAD NEW STOCK FILE BACK IN 

SCNCLR=: PRINT: PRINT 
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TG: <s 
220s 
we Uh 
1240 : 
‘gous 
e001 
1270s 
1280 : 
1290 : 
1300" 2 
15.10° 5 
WSe0N. 
1550s 
1340 : 
4 | 0 Har 
1360 : 
1370 < 
1380 : 
1390 : 
1400 : 
1410 : 


1420 


1430 : 
1440 : 
1450 : 
1460 : 
1470 : 


1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1370 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 


OPEN 1,1,0,N$ 
K=0 
DO UNTIL K>9 OR ST<>0 
INPUT# 1,ES(K) 
N=0 
DO UNTIL N>2 OR ST<>0 
INPUT# 1,JZ(K,N) 
N=Nt+1 
LOOP 
K=K+1 
LOOP 
CLOSE 1 
REM I I I ea ek ee 
REM VERIFY NEW STOCK FILE 
SCNCLR: PRINT: PRINT 
PRINT TAB(8)CHR$( 18)" STOP CASSETTE RECORDER "’ 
F=2 
FOR K=0 TO 9 
IF DS(K)<>ES(K) THEN F=1:K=9 
FOR R=0 TO 2 
IF NZ(K,R)<>JZ(K,R) THEN F=12:K=9:2R=2 
: NEXT 
NEXT 
PRINT: PRINT 
REM kk kK Rk RK KK 
ON F GOSUB 2640,2740 
: IF F=2 THEN GOSUB 1640 
LOOP UNTIL F=2 


END 
REM KKK KKK KKKKKEKK KKK KK KEKKKKKKEKEK 


REM KKK KK KKKKKKEK KKK KKK KEKEKKKEKEKE 


REM 

REM KKKKKKKKKKKK KKK 

REM * * 

REM * A 

REM * SUBROUTINES * 

REM * ke 

REM * * 

REM CO Ok ek 

REM 

REM KKK KK KK KKKKKKEKK KKK EKKKKKEKEKK 


REM KKK KKK KKKKKKKKKKKKKKKKKKKKKE 


REM SELECT OUTPUT DEVICE 

SCNCLR 

PRINT: PRINT 

PRINT TAB(4)"SELECT THE OUTPUT DEVICE FOR" 
PRINT TAB(4)"THE REORDER REPORT BY PRESSING:" 
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90 


1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
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PRINT 

PRINT TAB(10)CHRS$(18)" KEY 1 “CHR$(146)" - SCREEN" 
PRINT 

PRINT TAB(10)CHR$(18)" KEY 2 “'CHR$€146)" - PRINTER" 
DO:GET A$:LOOP UNTIL A$="'1"' OR AS="2" 

A=VAL(AS) 

ON A GOSUB 1790,2200 


RETURN 
REM ok ok ok oe ae oe oe oe a ee IO I II I ICI Ie 


REE Mk ok ok oe ak eo oe de tek ek tee ae te ke ke kd tok 


REM SCREEN OUTPUT 
K=0 
DO UNTIL K>9 
> R=0 
LP=0 
IF NZ(K,0)>NZ(K,1) THEN R=1° ELSE R=0 
DO WHILE R=0 AND LP=0 
SCNCLR: PRINT: PRINT 
PRINT TAB(8)CHRS(18)-> 
PRINT" ITEMS TO BE REORDERED " 
PRINT:PRINT 
PRINT TAB(14)"STOCK ITEM';K+t1 
PRINT: PRINT 
RZ=(40-LENCD$(K)))/2 
PRINT TABCRZDS(K) 
PRINT: PRINT 
PRINT TA8(10)"NUMBER IN STOCK ";NZ(K,0) 
PRINT 
PRINT TAB(10)"REORDER LEVEL ";NZ(K,1) 
PRINT 
PRINT TAB(10)"'REORDER QUANTITY" -NZ(K,2) 
PRINT:PRINT 
PRINT TAB(4)"NEGATIVE NUMBERS IN STOCK MEAN" 
PRINT TAB(4)"CUSTOMERS WAITING FOR GOODS." 
PRINT: PRINT 
PRINT TAB(4)CHRS(18) > 
PRINT'' PRESS ANY KEY FOR NEXT ITEM " 
GETKEY A$ 
LP=1 
LOOP 
K=K+1 
LOOP 
SCNCLR: PRINT: PRINT 
PRINT TAB(7)"'NO FURTHER ITEMS ARE TO BE" 
PRINT TAB(7)*'REORDERED.” 
PRINT: PRINT 
PRINT TAB(12)"HAVE A NICE DAY." 
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2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 


2310 : 
2320 : 
23507: 


PRINT: 


PRINT 


PRINT TAB(17)CHR$( 18)" BYE! " 


RETURN 


REN I ak ak 

REM I IO I I a ak 

SCNCLR: PRINT: PRINT 

PRINT TAB(4)"DOES YOUR PRINTER HAVE AUTOMATIC" 
PRINT TAB(4)"LINE FEED ON CARRIAGE RETURN"; 


Vee tn 
INPUT 


Y$ 


IF ASC(Y$)=89 THEN FLN=3:ELSE FLN=131 
REED IR II II IO I IO 


OPEN F 


LN,4 


PRINT# FLN,SPC(8)"ITEMS TO BE REORDERED"™ 


K=0 
DO UNT 
LP= 


2340 : 
2350 = 
2360 : 
25002: 
2580 3 
2590: 
2400 : 
2410 : 
2420 ; 
2430 : 
2440 : 
2450 = 


2460 : 
247002 


2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 


OPC-E 


LOO 
K=K 
LOOP 
PRINT# 
PRINT# 
PRINT# 
PRINT# 
PRINT# 
PRINT# 
PRINT# 
PRINT# 
PRINT# 
PRINT# 
CLOSE 
RETURN 


Ile -K>9 
0 


PRINT# 
PRINT# 
PRINT# 


RZ=(40- 


PRINT# 
PRINT# 
PRINT# 
PRINT# 
PRINT# 
PRINT# 
PRINT# 
LP=1 

P 

+ 


FLN, 
FLN, 
FLN, 


IF NZCK,0)>NZ(K,1) THEN R=12ELSE R=0 
DO WHILE R=0O AND LP=0 


FLN,:PRINT# FLN, 

FLN,SPC(14)"STOCK ITEM" ;K+1 

FLN, 

LENCDS(K)))/2 

FLN,SPCCRZ)DS(K) 

FLN, 

FLN,SPC(10)'"'NUMBER IN STOCK "ZNZ(K,0) 
FLN,SPC(10)""REORDER LEVEL ";NZ(K,1) 
FLN,-SPC(10)""REORDER QUANTITY" ZNZ(K,2) 
FLN, 

FLN, 


FLN,SPC(4) "NEGATIVE NUMBERS IN STOCK MEAN" 
FLN,SPC(4)"CUSTOMERS WAITING FOR GOODS." 


FLN, 
FLN, 


FLN,SPC(12)"HAVE A NICE DAY." 


FLN, 


FLNGSPCCIS) BYE!” 


FLN 


REMAX KKK KKKKKKKKKEKEAKKKEKKKKEKEE 


Ol 


32 


2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
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REMARK AKA KK KK KK KAKKKKKKKKKAKKK 


REM VERIFICATION CHECK FAILED 

PRINT TAB(8)"VERIFICATION CHECK FAILED" 
PRINT: PRINT 

PRINT TAB(4)""REWIND TAPE TO THE START OF THE" 
PRINT TAB(4)""NEW STOCK FILE THEN PRESS ANY" 
PRINT TAB(4)"KEY." 

GETKEY A$ 

RETURN 


REM Ak kkk kkk Ok dO tok de dok 
REM *%k dk Ak kk dk dokok 


REM VERIFICATION CHECK PASSED 


PRINT TAB(8)"'VERIFICATION CHECK PASSED 


PRINT: PRINT 
PRINT TAB(7)CHRS(18)"" PRESS ANY KEY TO CONTINUE " 
GETKEY A$ 


RETURN 
REM 4 kk RO do doko 


REMARK KKK KKK KKK KKRKEKKKKKKAKEKEKE 


The 


se 
P19 Stock file output 


program outputs a stock file, which has been saved on to 


tape, to the screen or to a printer. It will work both with 
printers which have an automatic Line feed on carriage return 
(such as the Commodore MPS801) and those which do not. 


COMMANDS 


Key 


in the program and RUN. 


Have your stock file tape handy. 


REM STOCK FILE OUTPUT 

REM Kx KKKKKKAKKKKKKEK 

REM 

COLOR O,2:REM WHITE SCREEN 
COLOR 1,7,1:REM BLUE INK 
COLOR 4,10,4:REM BROWN BORDER 
SCNCLR 

PRINT 

PRINT 


PRINT TAB(11)"STOCK FILE OUTPUT" 

PRINT TAB(11 Jisses=S---S=-s=-—— 

PRINT: PRINT 

PRINT TAB(4)"THIS PROGRAM READS A STOCK FILE" 
PRINT TAB(4)"OF TEN ITEMS AND PRINTS IT ON" 
PRINT TAB(4)"TO THE SCREEN OR TO A PRINTER.” 
PRINT: PRINT: PRINT 

PRINT TAB(6)CHR$(18)" PRESS ANY KEY TO CONTINUE " 
GETKEY A$ 

REM RRA KAAKAKKKKKKKKEKKKKEKEKEKEKKK 

SCNCLR: PRINT: PRINT 

DIM NZ(9,2) 

PRINT TAB(4)"WHAT IS THE NAME OF THE STOCK" 
PRINT TAB(4): INPUT’ FILE’;NS 

PRINT: PRINT 

PRINT TAB(4)"POSITION TAPE AT START OF STOCK" 
PRINT TAB(4)"FILE, THEN PRESS ANY KEY.” 
GETKEY AS 

REMAX KKKKKKKKKKKKKKKKKEKKEKKKEKEKE 

REM READ STOCK FILE 

SCNCLR: PRINT: PRINT 


770 


760 : 


Pig 


OPEN 1,1,0,N$ 
K=0 
DO WHILE K<10 AND ST=0 
> INPUT# 1,D$(K) 
J=0 
DO WHILE J<3 AND ST=0 
INPUT# 1,NZ(K,J) 
J=J+1 
LOOP 
K=K+1 
LOOP 
CLOSE 1 
REM I HI I II I III RII RIOR IR TOR tok 
REM PRINT QUT 
SCNCLR: PRINT: PRINT 


stock file output 


PRINT TAB(7)CHRS$(18)"' STOP CASSETTE RECORDER " 


PRINT: PRINT 
PRINT TAB(4)"SELECT THE OUTPUT DEVICE FOR" 
PRINT TAB(4)"'THE STOCK FILE BY PRESSING:"' 
PRINT 
PRINT TAB(10)CHRS(18)'' KEY 1 “'CHRS( 146)" - 
PRINT 
PRINT TAB(10)CHRS( 18)" KEY 2 ''CHRS(146)" - 
DO:GET A$:LOOP UNTIL A$="'1" OR AS="2"' 
A=VAL(AS) 
ON A GOSUB 610,870 
END 
REM ee IIR IIR IR IO I Ie 
REM I IK IR I I III KK IR IR RR I IOK 
REM SCREEN OUTPUT 
FOR K=0 TO 9 

SCNCLR :PRINT 

PRINT:PRINT 


SCREEN" 


PRINTER" 


PRINT TAB(13)CHRS(18)" STOCK ITEM"STRS(K+1)" " 


PRINT:PRINT: PRINT 

RZ=(40-LENCDS(K)))/2 

PRINT TABCRZ)DS(K) 

PRINT: PRINT 

PRINT TABC(10)''NUMBER IN STOCK ";NZ(K,0) 
PRINT 

PRINT TAB(10)"REORDER LEVEL "ZNZ(K,1) 
PRINT 

PRINT TAB(10)""REORDER QUANTITY" ;NZ(K,2) 
PRINT:PRINT-PRINT TAB(4)CHRS( 18); 
PRINT’ PRESS ANY KEY FOR NEXT ITEM " 
GETKEY A$ 

NEXT 


Pag 


780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 


1020 : 
1030 : 


1040 
1050 


1060 : 


1070 
1080 


1090 : 
1100 : 
4 i is = 


1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 


Stock file output 


SCNCLR: PRINT: PRINT 

PRINT TAB(11)''PRINT OUT COMPLETE" 
PRINT: PRINT 

PRINT TAB(12)"'HAVE A NICE DAY." 
PRINT:=PRINT 

PRINT TAB(17)CHRS(18)" BYE! " 


RETURN 
REM 1 I III III III II I kK 


REM XK XKKKKKKKKKKKKKKKKKKEEKKKKEKK 
YS="'N"' 
SCNCLR: PRINT: PRINT: 
PRINT TAB(4)"DOES YOUR PRINTER HAVE AUTOMATIC" 
PRINT TAB(4); 
INPUT"LINE FEED ON CARRIAGE RETURN";YS 
IF ASC(Y$)=89 THEN FLN=3:ELSE FLN=131 
OPEN FLN,4 
RZ=(29-LENCNS) )/2 
PRINT# FLN,SPC(R%)"STOCK FILE "NS 
BS="""ZREM NO SPACE 
FOR N=1 TO 11+LEN(NS):BS=B$+'"'~": NEXT 
PRINT# FLN,SPC(RZ)BS 
PRINT# FLN,:PRINT# FLN, 
FOR K=0 TO 9 
>: PRINT# FLN,:PRINT# FLN, 
PRINT# FLN,SPC(14)"STOCK ITEM";K+1 
PRINT# FLN, 
>= RZ=(40-LENCDS(K)))/2 
> PRINT# FLN,SPC(R%)DS(K) 
PRINT# FLN, 
> PRINT# FLN,SPC(10)""NUMBER IN STOCK ";NZ(K,0) 
: PRINT# FLN,SPC(10)"REORDER LEVEL ‘';NZ(K,1) 
PRINT# FLN,SPC(10)"REORDER QUANTITY" ;NZ(K,2) 
PRINT# FLN, 
> PRINT# FLN, 
NEXT 
PRINT# FLN 
PRINT# FLN 
PRINT# FLN 
CLOSE FLN 


RETURN 
REMKKKKKKKK KKK KKKAKKKKKK KKK KEKE 


REM KKKKKKKKKKAKKKKKKKKKKKKKEKEKKEK 


00 
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P20 Tax calculator 


This program calculates the local or state tax on an item and 
tells you both the tax and the total cost. 


The results of the calculation are rounded to the nearest 
cent. 


If an amount ends in 10, 20, etc cents the last zero is. not 
printed - e.g. a cost of $4.50 is printed 4.5. If thts 
causes concern the solution is to change values from numbers 
to the equivalent string variables. The final zero may’ then 
be added if required. This is Left as an exercise for the 
reader. 


COMMANDS 


Key in the program and RUN. 
Enter data as required. 


10 REM TAX CALCULATOR 

20 REM Keak aKKKKKKKKKK 

30 REM 

40 SCNCLR 

50 COLOR 0,15,1:REM DARK BLUE SCREEN 

60 COLOR 1,4:REM CYAN INK 

70 COLOR 4,15,1:REM DARK BLUE BORDER 

80 PRINT TAB(10)"$$$$$$$$$$$$$$$$$S" 


90 PRINT TAB(10)"$ a 
100 PRINT TABC10)"$ TAX CALCULATOR $"' 
110 PRINT TAB(10)"$ $4 


120 PRINT TAB(10)"$S$$$$$$SS$$$H$$$$$$" 

130 PRINT: PRINT 

140 PRINT TAB(4)"THIS PROGRAM CAN BE USED TO" 

150 PRINT TAB(4)"CALCULATE THE LOCAL OR STATE TAX" 
160 PRINT TAB(4)"0N AN ITEM. IN THE UK IT CAN BE" 
170 PRINT TAB(4)"USED TO HELP MAKE UP VAT RETURNS." 
180 PRINT: PRINT 

190 PRINT TAB(4)"WHAT IS THE CURRENT RATE (Z)"'; 

200 INPUT TAX 

210 TAX=TAX/ 100 


COO REMAKKKAKKKKKKKKEKKKKKKKKKKEK 


P20 


230 
240 


250 : 
260 : 
£(0:> 
280 : 
290 : 


300 
310 


Tax calculator Del 


REM KK KKK KKK KKK EKER KKK KKK IK K 


DO 
SCNCLR 

PRINT:PRINT=: PRINT 

DEF FNACX)=INT(X*100+.5)/100 

REM NUMBERS CORRECT TO 2 PLACES AFTER DECIMAL POINT 
INPUT"COST OF ITEM =";CST 
- PRINT:PRINT 


> PRINT'TAX =""sFNACCST*TAX) 
: PRINT: PRINT 
= PRINT"TOTAL COST =";FNACCST*(1+TAX) ) 


> PRINT:PRINT=PRINT 

: INPUT"ANOTHER RUN’ ;Y$S 
Loop UNTIL ASCCYS)<>89 
END 
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P21 True rate of interest 


This program uses a simplistic approach to calculating the 
true rate of interest on a loan. It iS assumed that 
repayments are on a monthly basis. 


To calculate the true rate of interest we compute the amount 
of dollar-months that have been borrowed. (One dollar-month 
is equivalent to borrowing one dollar for one month, or fifty 
cents for two months.) We now calculate as a percentage the 
ratio of the total interest paid to the total number of 
dollar-months. We then multiply this number by twelve. 


As no monetary units are entered, this program is not Limited 
to dollars and wilt work for any currency. 


COMMANDS 


Key in the program and RUN. 
Follow the instructions. 


10 REM TRUE RATE OF INTEREST 

LO REM KRKAKKKKKKKKKKEKKKKEKKKE 

30 REM 

40 COLOR 0,2:REM WHITE SCREEN 

50 COLOR 1,7,1:REM BLUE INK 

60 COLOR 4,10,5:REM BROWN BORDER 

70 SCNCLR 

80 PRINT:PRINT 

90 PRINT TAB(9)"TRUE RATE OF INTEREST" 

100 PRINT TAB (9) "ssss2ss222ssSss2ee2===" 

110 PRINT:PRINT 

120 PRINT TAB(4)"THIS PROGRAM COMPUTES THE TRUE" 
130 PRINT TAB(4)"RATE OF INTEREST ON A LOAN" 

140 PRINT TAB(4)"TRANSACTION. THE PROGRAM REQUIRES" 
150 PRINT TAB(4)"THE AMOUNT BORROWED, THE ANNUAL" 
160 PRINT TAB(4)"INTEREST RATE AND THE NUMBER OF" 
170 PRINT TAB(4)"MONTHS OVER WHICH THE LOAN IS" 
180 PRINT TAB(4)"TAKEN."' 

190 PRINT: PRINT:PRINT 

200 PRINT TAB(7)CHRS( 18)" PRESS ANY KEY TO CONTINUE " 
210 GETKEY A$ 


PZ] 


220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
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REM KK AKKKKKKKKKKKKKEKKKKKKKKKKKKKK 
SCNCLR=PRINT:PRINT 

PRINT TAB(4):INPUT'AMOUNT BORROWED"; AMT 

PRINT 

PRINT TAB(4):INPUT"ANNUAL INTEREST RATE (2Z)";RT 
PRINT 

PRINT TAB(4):INPUT'NUMBER OF MONTHS" ;NM 

PRINT: PRINT 

IT=AMT*RT*NM/ 12002 REM TOTAL INTEREST 
PB=(AMT+IT)/NM:REM PAYBACK PER MONTH 

FOR J=O TO NM-1 

- BR=BRtAMT-PB*J 

NEXT 

REM BR=TOTAL DOLLAR MONTHS BORROWED 
TRU=1200*1T/BR 

TRU=INT (TRU* 100+ .5 )/100 

PRINT TAB(4)"TRUE RATE OF INTEREST IS";TRU;"Z" 
PRINT TAB(4)''===s=ssssss=ss25S=SSSSSs==SS5==5 
PRINT: PRINT:PRINT 

END 
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P22 Mail list creation 


This program allows you to create a mailing List of up to 
fifty names and addresses and to save this information = on 
cassette tape. 


It could be extended to take more names and addresses’ and 
modified to use floppy disk storage. 


COMMANDS 


Key in the program and RUN. 
Ensure you have a blank tape handy. 
Follow the instructions. 


10 REM MAILING LIST CREATION 

20 REM KKKKKKKKKKKKKKKKKKKKK 

30 REM 

40 COLOR 0,2:REM WHITE SCREEN 

50 COLOR 1,8,1:REM BLUE INK 

60 COLOR 4,10,1:REM BROWN BORDER 

70 SCNCLR 

80 PRINT: PRINT 

90 PRINT TAB(9)"*MAILING LIST CREATION" 

100 PRINT TAB(9)"====s==s22s222s2===s===" 

110 PRINT:PRINT 

120 PRINT TAB(4)"THIS PROGRAM ALLOWS YOU TO TYPE" 
130 PRINT TAB(4)"IN NAMES AND ADDRESSES AND TO" 

140 PRINT TAB(4)"'SAVE THESE ON TAPE AS A MAILING" 
150 PRINT TAB(4)"LIST FILE." 

160 PRINT 

170 PRINT TAB(4)"YOU ARE ALLOWED 50 NAMES AND" 

180 PRINT TAB(4)"'ADDRESSES. EACH ADDRESS SHOULD BE" 
190 PRINT TAB(4)"LIMITED TO FOUR LINES INCLUDING" 
200 PRINT TAB(4)"'THE POST CODE." 

210 PRINT 

220 PRINT TAB(4)""PLEASE ENTER DATA WHEN PROMPTED" 
230 PRINT:PRINT 

240 PRINT TAB(6)CHRS(18);"" PRESS ANY KEY TO CONTINUE "' 
250 GETKEY A$ 

260 REM XAKKKKAKKKKKKKKKKKKKKKKKKKK 

270 DIM NM$(49)2DIM AD$(49,3)2DIM ANS(49):2DIM AAS(49,3) 


Mail list creation 


FOR K=O TO 49 

: FS=0 

> SCNCLR:PRINT: PRINT 

> FOR J=O TO 3:2ADS(K,J)="...'°2 NEXT 

- REM EMPTY STRINGS PREVENT VERIFICATION 


PRINT TAB(6)CHRS$(18)"" ENTER END AS NAME TO FINISH "’ 


PRINT 
DO 
PRINT TAB(4):INPUT’’NAME’'-NMS(K) 
LOOP UNTIL LENCNMS(K))>0 
REMKAKKKKKKKAKKKAKKKK KKK KK 
DO WHILE NMS(K)<>"END’’ AND FS=0 
PRINT TAB(4)"ADDRESS:" 
PRINT TAB(4):INPUT’'LINE 1” ;AD$(K,0) 
PRINT TAB(4):INPUT"LINE 2";ADS(K,1) 
PRINT TAB(4):INPUT’LINE 3" ;ADS$(K,2) 
PRINT TAB(4):INPUT’'POST CODE" ;ADS(K,3) 
FS=1 
LOOP 
> IF NMS(K)="END" THEN K=49 
NEXT 
REM XA KKK KKK KKK KR RK KK IK KR IK 
SCNCLR:PRINT=PRINT 
PRINT TAB(4)"ENSURE THERE IS A TAPE IN THE" 
PRINT TAB(4)"CASSETTE RECORDER READY FOR SAVING" 
PRINT: PRINT 
PRINT TAB(4)""WHAT IS THE NAME OF THE FILE"’ 
PRINT TAB(4):2 INPUT N$ 


REM AKKKKKKKKKKKKKKEKKKKKKKKKK 


DO:REM MAIN PROGRAM LOOP 

REMARKAKK KKK A KEK RRR KKK RK 

PRINT=PRINT TAB(4);:REM FILE SAVE STARTS HERE 

OPEN 1,1,1,NS$ 

RS=CHR$(13)2REM RETURN KEY 

FOR K=O TO 49 

: FS=0 

PRINT# 1,NMS(K) 

DO WHILE NMS(K)<>"END" AND FS=0 AND ST=O 
FOR J=O TO 3:PRINT# 1,ADS(K,J) RS=NEXT 

: FS=1 

- LOOP 

> IF NMS(K)="END" OR ST<>O THEN K=49 

NEXT 

CLOSE 1 

REMARK AKA K RRR KK KR AIO KK KICK 

SCNCLR 

PRINT: PRINT 
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750 PRINT TAB(4)"'REWIND CASSETTE RECORDER TO START" 
760 PRINT TAB(4)"OF FILE" 

770 PRINT: PRINT 

780 PRINT TAB(4)"*PRESS ANY KEY WHEN READY" 

790 GETKEY A$ 

800 PRINT: PRINT 

810 OPEN 1,1,0,N$ 

820 FOR K=O TO 49 

830 : FS=0 

840 = INPUT# 1,ANS(K) 

850 : DO WHILE ANS(K)<>"END" AND FS=0 AND ST=0 


860 : FOR J=0 TO 3: INPUT# 1,AA$(K,J)= NEXT 
870 = FS=1 

880 : LOOP 

890 : IF AN$(K)="END" OR ST<>0 THEN K=49 

900 NEXT 

910 CLOSE 1 


920 REMAAKKAKKKKKKKKKKKKKKKKKKEKKK 


930 SCNCLR: PRINT: PRINT 


940 FG=1 

950 FOR K=0 TO 49 

960 : FS=0 

970 : DO WHILE NM$(K)<>"END" AND FG=1 AND FS=0 
980 : IF NMS(K)<>ANS(K) THEN K=49: FG=2 

990 : FOR J=0 TO 3 

16060:-: IF AD$S(K,J)<>AAS(K,J) THEN J=3:2K=49:FG=2 
1016.3 NEXT 

1020°<: FS=1 

1030 : LOOP 

1040 : IF NM$(K)="END" THEN K=49 

1050 NEXT 


1060 ON FG GOSUB 1170,1240 


1070 REMAAAKKKAKAKKKKKKKK 


1080 LOOP UNTIL FG=1 
1090 REMKXAKAKAKKKKKKKKKEK 


1100 END 

1110 REM 

1120 REMKKAAKKKKKKKKAAKKKKKK 
1130 REM SUBROUTINES 
1140 REM KAA KAKKKKKEKAKKKKKK KK 
1150 REM 


1160 REM FILE VERIFIED 

1170 PRINT TAB(6)CHRS$(18);'' VERIFICATION CHECK PASSED " 
1180 PRINT: PRINT 

1190 PRINT TAB(6)"STOP CASSETTE RECORDER" 

1200 RETURN 


1210 REMAX AKKKKKKKKAKKKKKEKKKKKKKKK 
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REMAX AAR AAR KR KKK KI KR IKK IKI KR IK 
REM VERIFICATION FAILED 

PRINT TAB(6)CHRS$(18);°' VERIFICATION CHECK FAILED "' 
PRINT: PRINT 

PRINT TAB(4)"REWIND TAPE TO INITIAL POSITION.” 
PRINT: PRINT 

PRINT TAB(4)"PRESS ANY KEY WHEN READY." 

GETKEY A$ 


RETURN 
REMAX KARA KA AR RR KKK KK KAR KIER RIK 


REM XX AAKKAKKKKKKKAKKKAKKKKKKKKKEEK 
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P23 Mailing list maintenance 


This program Lets you amend a previously created mailing List 


and 


The 
nam 
sto 


save the new List on cassette tape. 


program could be extended to deal with more than 
es and addresses and could be modified to use floppy 
rage. 


COMMANDS 


Key 
Ens 
rea 


190 
200 
210 
220 
230 
240 
250 
260 
270 


in the program and RUN. 
ure you have your mailing List tape and a_ blank 
dy. 


REM MAILING LIST MAINTENANCE 
REM oko I Ik kk 
REM 

COLOR 0,2:REM WHITE SCREEN 
COLOR 1,7,12REM BLUE INK 
COLOR 4,10,4:REM BROWN BORDER 
SCNCLR 


CHAR,4,6,"THIS PROGRAM LETS YOU ADD NAMES" 
CHAR,4,7,"'AND ADDRESSES TO, OR DELETE NAMES” 
CHAR,4,8,"'"AND ADDRESSES FROM A MAILING LIST" 
CHAR,4,9,"WHICH YOU HAVE PREVIOUSLY CREATED" 
CHAR,4,10,"AND SAVED ON CASSETTE TAPE." 
CHAR,4,15,"POSITION THE TAPE AT THE START OF" 
CHAR,4,16,"THE REQUIRED MAILING LIST FILE," 
CHAR,4,17,""THEN PRESS ANY KEY." 

GETKEY A$ 

REM kk I I a Rk 

DIM NM$(49):DIM AD$(49,3)=DIM ANS(49)2DIM AAS(49,3) 
SCNCLR 

CHAR,4,2,"": INPUT"WHAT IS THE FILENAME'';NS 

PRINT: PRINT 

OPEN 1,1,0,NS 

FOR K=O TO 49 

> INPUT# 171,NMS(K) 

> IF NM$(K)="'END" OR ST<>O THEN F=1:K=49:ELSE F=0 


fifty 


disk 


tape 
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IF F=0 THEN FOR J=0 TO 32 INPUT# 1,AD$(K,J)2NEXT 


NEXT 

CLOSE. 1 

REMKKKKK KEK KR KARA K KR KK RRR RK K 

SL=4 

DO 

> SCNCLR 

> IF SL=4 THEN CHAR,8,2," STOP CASSETTE RECORDER " 
> CHAR,4,5,"SELECT THE OPERATION REQUIRED BY" 
> CHAR,4,6,"PRESSING:" 

> CHAR,6,10,"KEY 1 - ADD ADDRESSES" 

> CHAR,6,12,"KEY 2 - REMOVE ADDRESSES" 

> CHAR,6,14,"KEY 3 - SAVE NEW MAIL LIST" 

> CHAR,6,17,"ANY OTHER KEY ENDS PROGRAM" 

> GETKEY A$ 

> SL=ASC(A$)-4821F SL<O THEN SL=4 

> ON SL GOSUB 590,1050,1500 

LOOP UNTIL SL>3 


END 


REMKKKKKKKKKEKKKKEKKKKEKKEKKEKKEKE 
REM KK AKKKKKKK KKK KICK KKK KKEKKKK KK 
REM 

REM KEKKKKKKKKKKEKKK 

REM * x 

REM * SUBROUTINES * 

REM * * 

REM KEKKKKKKKKKK KKK 

REM 

REM XK KKKKKKK KKK KEK KK KKKKKKKKKE 


REM & KKK RK IRR RRR KK RAI KICK 
REM SET POINTER AND CHECK IF LIST FULL 
T=50 

FOR K=Q TO 49 


> IF NM$(K)="END" THEN T=K:K=49 

NEXT 

SCNCLR 

CHAR, 11,2,""" 

IF T=50 THEN PRINT ‘'MAILING LIST FULL": ELSE GOSUB 710 


GOSUB 2260:REM ANY KEY 


RETURN 
REMAKKKKKRKKKKKK KR ERK RRR KEE KA KK 


REMKKKKKRAK ARK RRR RK KR KER RE KK IK 
REM ADD. 10: LIST 
FOR K=T TO 49 
> SCNCLR 
CHAR,8,2,CHRS(18)+"" ENTERING NEW INFORMATION " 
PRINT CHRS$( 146) 
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750 
760 
770 
780 
790 


800 : 
810 : 


820 
830 


840 : 
850 : 
860 : 
S70: 
880 : 


890 
900 


910 : 


920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


1100 : 
4110: 3 


1120 
1130 


1140 : 


1150 


1160 : 


1170 
1180 


1190 = 


1200 
1210 


P23 Mailing list maintenance 


CHAR,6,6," ENTER END AS NAME TO FINISH "' 

NM$(K)="" 

DO 
CHAR,4,9,""" 
INPUT''NAME'' sNMS$(K) 

LOOP UNTIL LENC(CNM$(K))>0 

F=1 

DO WHILE NM$(K)<>"END" AND F=1 
FOR J=0 TO 32AD$(K,J)="'..."2 NEXT 
CHAR,4,11,""ADDRESS:" 
PRINT 
PRINT TAB(4):INPUT"LINE 1" ;AD$(K,0) 
PRINT TAB(4)2 INPUT’LINE 2" ;AD$(K,1) 
PRINT TAB(4): INPUT"LINE 3" ;AD$(K,2) 
PRINT TAB(4): INPUT'POST CODE"; ADS(K,3) 
F=0 

LOOP 

IF NM$(K)="END" THEN K=49 


NEXT 

REMAAA AAA AK KAKA K KARR ARK RIK 

SCNCLR 

CHAR,6,2,'"'THE NEW INFORMATION HAS BEEN" 


C 


HAR,6,3,''ADDED TO THE MAILING LIST." 


CHAR,6,5,""REMEMBER YOU STILL HAVE TO" 
CHAR,6,6,"'SAVE THE NEW LIST IF YOU" 


CHAR,6,7,"HAVE FINISHED UPDATING IT." 
RETURN 


REMXAXXKAKAKKKKKKKKKKEKKKKEKEKEKKEK 
REMAAXAKKAKKKKKKKKKKKEKKKKKEKEK 
REM REMOVE ADDRESS 

DO 
> SCNCLR 

CHAR,9,2,CHR$(18)+" DELETING INFORMATION " 
PRINT CHRS$(146) 

CHAR,4,5,"PLEASE ENTER THE EXACT NAME" 
CHAR,4,6,'"'CORRESPONDING TO THE ENTRY YOU" 
CHAR,4,7,"WISH TO DELETE. IF THERE ARE TWO" 
> CHAR,4,8,"ADDRESSES CORRESPONDING TO THE" 

> CHAR,4,9,"SAME NAME THE FIRST OF THESE" 
CHAR,4,10,"WILL BE DELETED." 

> CHAR,4,14,""': INPUT"NAME' NAS 

T=50: R=50 

> FOR K=0 TO 49 

: IF NM$(K)=NA$ AND R=50 THEN R=K 

IF NM$(K)=""END" THEN T=K:K=49 

> NEXT 

> SCNCLR 
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1220 : IF R=50 THEN CHAR,13,6,“NAME NOT FOUND" 


1230 : F=1 

1240 : DO WHILE R<50 AND F=1 
1250: CHAR, 16,6, 'UPDATING” 
12600 °: CHAR,1,8,""" 

i (Are 8 Be FOR K=R TO T-2 

1280 : NMS (K)=NM$(K+1) 
12902 FOR J=0O TO 3:ADS(K,J)=ADS$(K+1,J)2NEXT 
1300 : PRINT" ."'> 

1510° NEXT 

TS201¢ NM$(T-1)="END” 

ASSO! cs F=0 

1340 : LOOP 

1350 =: Y$="N" 


1360 : CHAR,9,14,"": INPUT”ANOTHER DELETION (Y/N)";YS 
1370 LOOP WHILE ASC(Y$)=89 

1380 REM XKAAXKKAAKKKAKKKKAKKAKKKKKKEK 

1390 SCNCLR 

1400 CHAR,6,2,''THE REQUIRED DELETIONS HAVE" 
1410 CHAR,6,3,"BEEN MADE." 

1420 CHAR,6,5,"REMEMBER YOU STILL HAVE TO” 
1430 CHAR,6,6,"SAVE THE NEW LIST IF YOU" 
1440 CHAR,6,7,"HAVE FINISHED UPDATING IT." 
1450 GOSUB 2260:REM ANY KEY 

1460 RETURN 


1470 REMKKAKAKAKAKKKKKKKKKKKKKKKKKK 
1480 REMKAKKKKKKAKKKKKKKKKKKKKEKKKKKK 

1490 REM SAVE NEW MAILING LIST 

1500 SCNCLR 

1510 CHAR,4,2,"POSITION THE CASSETTE TAPE TO" 

1520 CHAR,4,3,"WHERE YOU WISH TO SAVE THE NEW" 
1530 CHAR,4,4,"FILE." 

1540 CHAR,4,7,"" 

1550 INPUT"WHAT IS THE FILENAME" -NS 

1560 REMKKKAKAAKAKAKKKKKKKKKKEKKKKKR 

1570 DO 

1580 = CHAR,4,9,"":REM FILE SAVE STARTS HERE 

1590 =: OPEN 1,1,1,N$ 


1600 R$=CHR$(13)2REM RETURN KEY 

1610 : FOR K=0 TO 49 

1620 : PRINT# 1,NM$(K) 

1650s F=1 

1640 : DO WHILE NM$(K)<>"END" AND F=1 AND ST=0 
1650 : FOR J=0 TO 3:PRINT# 1,ADS(K,J)=°NEXT 
1660 : F=0 

1670 3 LOOP 


1680 : IF NM$(K)=""END" OR ST<>O THEN K=49 


OPC-F 


68 


1690 


1700 : 
VAG Gs 


1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 


1850 : 


1860 


1870 = 


1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 


1990 : 


2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
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> NEXT 
CLOSE 1 
REMKKKAKKKAKKKKKAKKKKKKEKEKEEKKE 
: SCNCLR 
> CHAR,4,2,"REWIND CASSETTE RECORDER TO START" 
: CHAR,4,3,"0F FILE, THEN PRESS ANY KEY." 
CHAR;437, 
GETKEY AS 
OPEN 1,1,0,NS 
FOR K=0 TO 49 
F=1 
INPUT# 1,ANS(K) 
DO WHILE ANS(K)<>"END" AND ST=0 AND F=1 
FOR J=O0 TO 32 INPUT# 1,AA$(K,J)=2 NEXT 
= F=0 
2 LOOP 
: IF ANS(K)=""END" OR ST<>O THEN K=49 
> NEXT 
> CLOSE 1 
> BAD=2 
SCNCLR 
FOR K=0 TO 49 
F=1 
IF NMS(K)<>ANS(K) THEN BAD=1 
DO WHILE NMS(K)<>"END'' AND F=1 AND BAD=2 
FOR J=0 TO 3 
IF ADS(K,J)<>AAS(K,J) THEN BAD=1 
NEXT 
F=0 
LOOP 
IF NMS(K)="END' OR BAD=1 THEN K=49 
: NEXT 
: ON BAD GOSUB 2080,2180 
LOOP UNTIL BAD=2 
GOSUB 2260:REM ANYKEY 


RETURN 
REMARK RRR ARK KK IKK I KKK KICK 


REM AA RK I I IIR I TR IR RK IK 

REM CHECK FAILED 

CHAR,6,10,CHRS$(18)+" VERIFICATION CHECK FAILED " 
PRINT CHR$(146) 

CHAR,4,12,"REWIND TAPE TO INITIAL POSITION." 
CHAR,4,14,"'PRESS ANY KEY WHEN READY." 

GETKEY AS& 

SCNCLR 


RETURN 
REMAKAKKRAKKAK KKK KKK IR ERIK AK 
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2160 
2170 
2180 
2190 
2200 
2210 
2220 
2250 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2520 
2550 


REMARK RR I I I RO AK a KK 

REM CHECK OK 

CHAR,6,10,CHR$(18)+'' VERIFICATION CHECK PASSED " 
PRINT CHR$(146) 

CHAR,9,13,"STOP CASSETTE RECORDER" 

PRINT: PRINT 


RETURN 
REMAAA KAKA KKKAKKKKKKKKKAKKK KARE 


REM AAA ARK A KK RK KK aK aK RIK 
REM ANY KEY 

PRINT: PRINT:PRINT 

PRINT TAB(6)CHRS(18)"' PRESS ANY KEY FOR MAIN MENU ™ 
GETKEY BS 

DO:GET BS:2LOOP UNTIL LEN(B$)=0 

REM FLUSH KEYBOARD BUFFER 


RETURN 
REMKEKAAKKKKKKKKAAKKAKE RAK K RK KKK 


REMARK KKK KKK KKKKKKKKKKKKKKKKK 
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P24 Mailing list output 


This program lets you print the names and addresses on a 
mailing List on to Labels or to display them on the screen. 


A useful additional feature would be a search facility which 
would allow you to specify that only names’ starting with 
(say) a particular letter would be printed out. Another 
useful feature would be the facility to display a telephone 
dialling code on the screen when a name is typed in. 


If labels are to be printed a printer is required. The 
program will work both with printers which have an automatic 
Line feed on carriage return (such as the Commodore MPS801) 
and with those which do not. 


COMMANDS 


Key in the program and RUN. 

Ensure you have your mailing List tape ready. 

If necessary, adjust the Lines indicated by the REM 
statements in the code to get the optimum print positioning 
on your Labels. 


10 REM MAILING LIST OUTPUT 

20 REM KKEKKKKKKKKKKKKKKKKK 

50 REM 

40 COLOR 0,2:REM WHITE SCREEN 

50 COLOR 1,7,1:REM BLUE INK 

60 COLOR 4,10,4:REM BROWN BORDER 

70 SCNCLR 

80 CHAR,10,2,""MAILING LIST OUTPUT" 

90 CHAR, 10,3,"====s222s5225=25s552" 

100 CHAR,4,6,"'THIS PROGRAM LETS YOU VIEW THE" 
110 CHAR,4,7,""NAMES AND ADDRESSES ON A MAILING" 
120 CHAR,4,8,"WHICH YOU HAVE PREVIOUSLY CREATED" 
130 CHAR,4,9,"AND SAVED ON CASSETTE TAPE." 

140 CHAR,4,12,"IT ALSO LETS YOU PRINT THE LIST" 
150 CHAR,4,13,"'ON TO ADDRESS LABELS." 

160 CHAR,4,15,"'POSITION THE TAPE AT THE START OF" 
170 CHAR,4,16,"'THE REQUIRED MAILING LIST FILE," 
180 CHAR,4,17,''THEN PRESS ANY KEY." 


Mailing list output 


GETKEY A$ 
REMKKKKAKKKKKKKKKKKKKKKKKEKKEKK 
DIM NM$(49):2DIM AD$(49,3) 
SCNCLR 
CHAR,4,2,"": INPUT'WHAT IS THE FILENAME’';N$ 
PRINT: PRINT 
OPEN 1,1,0,NS$ 
FOR K=0 TO 49 
> INPUT# 1,NM$(K) 
> IF NMS(K)="END" OR ST<>0O THEN F=1:K=49: ELSE F=0 
: IF F=0 THEN FOR J=0 TO S:INPUT# 1,ADS(K,J)2NEXT 
NEXT 
CLOSE 7 
REMKK KKK KK KKKKKKKKKKKK KKK KKK 
SL=3 
DO 
> SCNCLR 
: IF SL=3 THEN CHAR,8,2," STOP CASSETTE RECORDER "' 
> CHAR,4,6,"SELECT THE OPERATION REQUIRED BY" 
> CHAR,4,7,"PRESSING:"' 
> CHAR,6,10,"KEY 1 - VIEW ADDRESSES" 
: CHAR,6,12,"KEY 2 - PRINT LABELS" 
: CHAR,6,15,"ANY OTHER KEY ENDS PROGRAM" 
> GETKEY A$ 
SL=ASC(A$)-48:1F SL<O THEN SL=3 
ON SL GOSUB 590,790 


LOOP UNTIL SL>2 


END 
REM a ak ak a a Ra a IR kK Rk aR RII 


REM KKK HRA AKKKKKKKKAKEKKKKEKAAKKK 


REM 

REM kkk kk kk RK kk 
REM * k 
REM * SUBROUTINES * 
REM * x 
REM kk kk dk tok kkk kkk 
REM 


REM RR RR Ra ea ae 
REM kk I Rk a i ae 
REM VIEW ADDRESSES 
K=0 
REM DO LOOP EASIER TO USE THAN FOR NEXT LOOP HERE 
DO UNTIL K=50 OR NMS(K)="END" 
> SCNCLR 
CHAR, 10,8,NMS(K) 
>: FOR J=0 TO 3 
: CHAR,10,10+J,ADS(K,J) 


val 
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> NEXT 
> CHAR,10,16,CHR$(18)+" PRESS ANY KEY ‘+CHRS$(146) 
- GETKEY AS 
> K=K+1 
LOOP 
REMKXKKKKKKKKKAKKKKKKKKKKKK KKK 
SCNCLR 
CHAR,10,8,"END OF ADDRESS FILE" 


GOSUB 1130 REM ANY KEY 


RETURN 
REM a a ae a a da kk kk kek ek ae 


REMAXKKKKKKKKAKKKKKKK KKK KKK KKK 


REM PRINT LABELS 

SCNCLR 

Y$="N" 

CHAR,2,8,"DOES YOUR PRINTER HAVE AN AUTOMATIC" 
CHAR,2,9,"LINE FEED ON CARRIAGE RETURN (Y/N)" 
CHAR,2,10,""s INPUT YS 

IF ASC(Y$)=89 THEN FLN=3:ELSE FLN=131 

REM SET PRINTER FILE NUMBER 

REM kkk ak a a a a kk kk kk ke 

SCNCLR 

CHAR,7,6,"ENSURE LABELS ARE CORRECTLY" 


CHAR,7,7,"ALIGNED AND PRINTER IS ON." 
CHAR,7,10,CHR$(18)+"' PRESS ANY KEY WHEN READY " 
PRINT CHR$( 146) 

GETKEY A$ 

OPEN FLN,4 


FOR K=O TO 3:2PRINT# FLN,= NEXT 
REM ADJUST PREVIOUS LINE TO POSITION PRINT ON LABELS 
K=0 
DO UNTIL K>49 OR NMS(K)="END" 

SP=10: PRINT# FLN,SPCCSP)NMS(K) 

REM ADJUST SP TO GET CORRECT MARGIN 
: FOR J=O TO 3:PRINT# FLN,SPC(SP)AD$S(K,J)= NEXT 

FOR J=O TO 3:PRINT# FLN,=NEXT 

REM ADJUST PREVIOUS LINE TO KEEP LABELS ALIGNED 

K=K+1 
LOOP 
CLOSE FLN 
CHAR,13,13,''PRINT COMPLETE" 
PRINT: PRINT 
GOSUB 1130:REM ANY KEY 


RETURN 
REE Mk 2 ke RR I TOK I I I I A KC IC Te 


REM kkk ak a RK IO I IR Rk I a CK 
REM ANY KEY 
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1130 PRINT: PRINT:PRINT 

1140 PRINT TAB(6)CHRS$(18)'' PRESS ANY KEY FOR MAIN MENU "' 
1150 GETKEY BS 

1160 DO:GET BS:LOOP UNTIL LEN(BS)=0 

1170 REM FLUSH KEYBOARD BUFFER 

1180 RETURN 


1190 REM KKK KK KKKKKKKKKKKKEKKKKKKKEE 
1200 REM KK KKKKKKEKKKKKKKKKKKKKKKKKE 
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P25 Four weekly moving average 


When attempting to measure trends in sales data it can be 
useful to plot the sales data along with a _ continually 
updated average of the last four weeks’ sales. 


This program performs such a task, with the sales data held 


in the form of data statements. Note that the data are 
terminated by an imaginary negative sale. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM - FOUR WEEKLY MOVING AVERAGE 
20 PRINT “LCS CD. CD. CO-CD: Cb CD CD Cb. -cb CD J” 


30 PRINT " FOUR WEEKLY MOVING" 
40 PRINT:PRINT " AVERAGE" 
50 A=TI 


60 IF TI<A+100 THEN GOTO 60 

70 PRINT "[cs ]" 

80 PRINT "THIS PROGRAM CAN BE USED TO HELP YOU" 
90 PRINT "'TO FORECAST SALES BASED ON “" 

100 PRINT "A 4-WEEK MOVING AVERAGE." 

110 PRINT 

120 PRINT "THIS CAN BE A FAIRLY USEFUL PROGRAM," 
130 PRINT "BUT BEAR IN MIND THAT IT DOES NOT" 

140 PRINT "CONSIDER SEASONAL VARIATIONS." 

150 PRINT:PRINT: PRINT 

160 PRINT "DATA ARE HELD IN DATA STATEMENTS, AND" 
170 PRINT "UP TO 52 WEEKS CAN BE HANDLED." 

180 PRINT: PRINT 

190 PRINT "IF NECESSARY, STOP THE PROGRAM AND ADD" 
200 PRINT "'TO OR CHANGE THE DATA." 

210 PRINT:PRINT: PRINT 

220 DIM SA(53),MA(50) 

230 REM SCALE THE DATA 

240 NO=0:MxX=0 
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250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
Le 

490 
500 
510 
520 
530 
540 
a 50 
560 
570 
580 


Four weekly moving average fis) 


REM LOOP BACK POINT 

NO=NO+ 1 

READ SA(NO) 

IF SACNO)<O THEN GOTO 310 

IF MX<SACNO) THEN MX=SACNO) 

GOTO 260 

REM CALCULATE MOVING AVERAGES 

FOR I=4 TO NO-1 

MAC I-3)=(SAC1I)+SACI-1)+SACI-2)+SACI-3))/4 
NEXT I 

GOSUB 450 

I=1 

REM LOOP BACK POINT 

I=I1+12LI=LI+1 

PRINT I,SAC1I),,MA(C1) 

IF LI=18 THEN GOSUB 450 

IF SACI)<O THEN GOTO 430 

GOTO 380 

END 

END 

PRINT:PRINT ‘'PRESS ANY KEY TO CONTINUE" 
GET AS:IF A$='""" THEN 460 

PRINT: “[CS.1"5 

PRINT"[RON ] SALES DATA 1984 [ROF 


PRINT 

L1=0 

PRINT "PERIOD SALES VALUE MOVING AVERAGE" 
RETURN 

DATA 112,224,115,212,118,215,113,214,115,216,112 
DATA 223,126,224,125,265,145,293,116,216,193,293 
DATA 187,315,220,354,232,367,198,354,267,365,287 
DATA 398,254,254,176,234,144,201,101,350, 190,483 
DATA 190,190 

DATA -9 
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P26 Cost of sales calculation 


This program uses three different methods of calculating 
cost of sales, and uses the results of these calculations 
produce a report on Gross Profit 


The methods are: 


1. First-In-First-Out 
2. Last-In-First-Out 
3. The method of Weighted Average 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM COST OF SALES 

20 REM THIS PROGRAM COMPUTES COST OF 
30 REM SALES USING 3 DIFFERENT METHODS 
REM 

REM FIFO, LIFO, WEIGHTED AVERAGE 


40 


REM ENTER PURCHASE DATA 


PRINT CHRS$( 147) 
PRINT: PRINT: PRINT: PRINT 
PRINT "PURCHASE DATA” 


PRINT: PRINT: PRINT: PRINT 

INPUT "NUMBER OF PURCHASES MADE ";N 

DIM V(N),PC(N)2REM DIMENSION VOLUME AND PRICE ARRAYS 
FOR I=1 TO N 

PRINT “PURCHASE NUMBER "I 

INPUT "VOLUME OF PURCHASE ";V(I) 

INPUT "PRICE OF PURCHASE "';P(TI) 

FOR R=1 TO 3:PRINT CHRS$(145)72NEXT R 

TP=TPt+V(T) 

NEXT I 


REM ENTER SALES DATA 
PRINT CHRS( 147) 


the 


to 


Cost of sales calculation 


PRINT: PRINT: PRINT: PRINT 


PRINT: PRINT: PRINT: PRINT 
INPUT ''NUMBER OF SALES MADE"';M 


{f 


DIM A(M),S(M):REM DIMENSION VOLUME AND PRICE ARRAYS 


TT=0:RV=O 

FOR I=1 TO M 

PRINT "SALE NUMBER "I 

INPUT ''VOLUME OF SALE ";ACI) 

INPUT "PRICE OF SALE ";S(1) 
TT=TT+ACI) 

RV=RV+AC(1)*S(1) 

FOR R=1 TO 3:PRINT CHR$(145)7-=NEXT R 
NEXT I 


IF TT>TP THEN PRINT: PRINT:PRINT=: PRINT: PRINT 


REM USING THE METHOD OF FIRST IN 
REM FIRST OUT 


T=TT:C=O-1=1 

PRINT I] 

DO WHILE T>O 

IF T>V(I) THEN T=T-V(I)=C=C+V(I)*PCI) = =ELSE 


I=I+1 
LOOP 


REM PRINT OUT RESULTS 

PRINT CHR$(147)2PRINT: PRINT: PRINT 
PRINT "USING FIFO =" 

PRINT: PRINT: PRINT 

PRINT "REVENUE = "RV 

PRINT "COST OF SALES="C 
PRINT:PRINT "GROSS PROFIT = "RV-C 


PRINT:PRINT:PRINT "PRESS ANY KEY TO CONTINUE" 


GET AS:IF A$="" THEN 530 


REM USING THE METHOD OF LAST IN 
REM FIRST OUT 
Tei? C-021-N 
DO WHILE T>O 


"OVERSOLD": 


C=C+T*P(1): 


P26 Cost of sales calculation 


IF TOV(1) THEN T=T-VC1)2C=C+VCI)*P(IL) ZELSE C=C+T*PC(I): 


REM PRINT OUT RESULTS 

PRINT CHR$(147):PRINT: PRINT: PRINT 

PRINT "USING LIFO :"' 

PRINT: PRINT: PRINT 

PRINT "REVENUE = "RV 

PRINT "COST OF SALES="'C 

PRINT:PRINT "GROSS PROFIT = "'RV-C 
PRINT:PRINT:PRINT ‘PRESS ANY KEY TO CONTINUE" 
GET AS: IF A$="" THEN 720 


REM USING THE METHOD OF WEIGHTED 
REM AVERAGE 

FOR J=1 TON 

PP=PP+V(J)*P(J) 

NEXT J 

AV=PP/TP 


C=TT*AV 


REM PRINT OUT RESULTS 

PRINT CHRS$(147):PRINT: PRINT= PRINT 

PRINT “USING WEIGHTED AVERAGE:" 

PRINT: PRINT=PRINT 

PRINT "REVENUE = “RV 

PRINT “COST OF SALES="'C 

PRINT:PRINT ‘GROSS PROFIT = ‘'RV-C 

PRINT: PRINT:PRINT “PRESS ANY KEY TO CONTINUE" 
GET AS:IF A$=""" THEN 930 


END 
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PRICE LIST SUITE 


This is our example of a suite of programs. It should give 


you an idea of how commercial programs are developed. The 
programs as presented are disk based, since this is the only 
feasible way for a commercial set of programs to work. ft; 


however, you have only a tape based system you can still, 
with care, use these programs. You will have to make the 
following changes: 


Where you see a command of the form 
DLOAD "filename" 
replace it with the set of commands 


PRINT “WIND TAPE TO POSITION xx" 
GETKEY A$ 
LOAD "filename". 


Position xx is where the file is held on the cassette. 


Let's get back to our suite of programs. 
These programs are designed to turn the Commodore-16 into a 
point of sale machine. The suite consists of five programs. 


1. PRICELIST MENU : This is the main menu of the system. 
This program controls which subsidiary program is called 
in. All programs return to this program when finished. 


2. FDUMP: This program can be used to dump the contents 
of any file to either the screen or the printer. It can 
be useful outwith this system. 


3, MAINTENANCE: This program allows the user to maintain 
pricing information. 


4. PRINT: This is the main report program in the system. 


5. POS: This is the point of sale program. It is used to 
produce the price that the customer pays. 
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P27 PRICELIST — Main menu program 


This is the main control program of the system. 
COMMANDS 


Please ensure that the whole system is loaded before running 
this prgram. 


Key in program. 

Save the program to your backing storage device. 
RUN the program. 

Select from the menu. 


Note - make amendments if you are using tape. 


10°REM: PRICE LIST “SUITE 
20 REM PROGRAM - MAIN MENU 
30 PRINT "[CS RON ] 


[ROF ]"; 

40 PRINT "[RON ] PRICE LIST MENU [ ROF 

fe 

50 PRINT "[RON J LROF 

i Ha 

60 PRINT:PRINT 

70 PRINT "[RON ] 1. CHANGE PRICE LIST [ROF 

ei 

80 PRINT 

90 PRINT "[RON ] 2. USE CBM-16 AS POS TERMINAL [ ROF 

jhe 

100 PRINT 

110 PRINT "[RON ] 3. PRINT OUT PRICE LIST [ROF 
qe 

120 PRINT "[RON J 4. DUMP A DISK FILE TO SCREEN [ ROF 
Oe 

130 PRINT "[RON ] OR PRINTER {ROF 
ae 

140 PRINT "[RON ] 5. QUIT THE PROGRAM [ROF 
dhe 


150 PRINT "[CD CD JSELECT NUMBER FOR FUNCTION FROM MENU" 
160 GET AS:IF A$<>""" THEN GOTO 160 


Pal 
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GET AS:IF AS="""' THEN GOTO 170 

A=VAL(AS) 

IF A<>1 AND A<>2 AND A<>3 AND A<>4 AND AX>5 THEN GOTO 160 
PRINT A 

IF A=1 THEN PRINT "ABOUT TO LOAD PRICE LIST MAINTENANCE” 
IF A=2 THEN PRINT “ABOUT TO USE CBM AS POS" 

IF A=3 THEN PRINT “ABOUT TO LOAD PRINT PROGRAM" 

IF A=4 THEN PRINT "ABOUT TO LOAD DUMP PROGRAM" 

IF A=5 THEN PRINT ‘ABOUT TO QUIT PROGRAM" 

PRINT "OK? ENTER Y OR N" 

GET AS:IF A$<>"'"' THEN GOTO 270 

GET AS: IF AS="""' THEN GOTO 280 

IF AS="'N" THEN RUN 

IF A=1 THEN DLOAD “MAINT” 

IF A=2 THEN DLOAD "POS" 

IF A=3 THEN DLOAD "PRINT" 

IF A=4 THEN DLOAD "'FDUMP” 
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P28 MAINT-— 
Price list maintenance program 


This program can be used to: 


enter a new price list, or 
change the values on a price List. 


This program allows the user to keep price Lists up to date. 
COMMANDS 
Key in the program and save to disk or tape. 


Call the program from the main menu. 
Follow instructions. 


10 REM PRICE LIST SUITE 
20 REM PROGRAM - MAINTENANCE OF PRICE LIST 


30 REM 
40 PRINT "[CS CD CD RON ] 
EROF 
50 PRINT "CRON ] PRICE LIST MENU [ROF 
; 
60 PRINT "CRON ] [ROF 
At 
70 PRINT: PRINT:PRINT 
80 PRINT “[RON ] 1. ENTER A NEW PRICE LIST (ROF 
90 PRINT 
100 PRINT "[RON } 2. CHANGE THE VALUES ON A PRICE LIST[ROF 
ihe 
110 PRINT 
120 PRINT "[RON ] 3. GO BACK TO MAIN MENU ([ROF 
ie 
130 PRINT 


140 PRINT “ENTER NUMBER CORRESPONDING TO FUNCTION" 
150 GET AS:IF A$="""" THEN GOTO 150 

160 A=VALCAS) 

170 IF A<>1 AND A<>2 AND A<>3 THEN GOTO 150 

180 IF A=1 THEN GOSUB 1000 

190 IF A=2 THEN GOSUB 2000 
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200 IF A=3 THEN DLOAD "PRICELIST" 


210 GOTO 10 

990 REM ROUTINE TO SET UP NEW PRICE LIST 

1000 PRINT "[CS RON ] NEW PRICE LIST 
PROF J” 


1010 PRINT:PRINT:PRINT 

1020 PRINT "WHAT IS THE NAME OF THE PRICE LIST": INPUT NS 
1030 PRINT "THE FORMAT OF THE PRICE LIST IS AS" 

1040 PRINT "FOLLOWS:" 

1050 PRINT 

1060 PRINT "SUPPLIER NUMBER,DESCRIPTION,PRICE" 

1070 PRINT 

1080 PRINT "THE LIST SHOULD BE IN ALPHABETIC ORDER" 
1090 PRINT "BASED ON THE DESCRIPTION" 

1100 PRINT 

1110 PRINT "ENTER 0 FOR LAST SUPPLIER NUMBER" 

1120 PRINT 

1130 OPEN 2,8,2,"0:""+NS+",S,W"ZTS=""" 

1140 REM LOOP BACK POINT 

1150 INPUT "SUPPLIER NUMBER (0 FOR LAST)";S 

1160 INPUT "DESCRIPTION" ;D$ 

1170 INPUT "PRICE $"P 

1180 IF NOT(D$>T$) THEN PRINT "WRONG ORDER":GOTO 1150 
1190 TS=D$ 

1200 PRINT 

1210 PRINT#2,S 

1220 PRINT#2,D$ 

1230 PRINT#2,P 

1240 IF S<>0 THEN GOTO 1150 

1250 CLOSE 2 

1260 RETURN 

1990 REM ROUTINE TO CHANGE PRICE LIST 

2000 PRINT "[CS RON ] CHANGE PRICE LIST 
[ROF J" 

2010 PRINT: PRINT:PRINT 

2020 PRINT "WHAT IS THE NAME OF THE OLD PRICE LIST": INPUT OPS 
2030 PRINT "WHAT IS THE NAME OF THE NEW PRICE LIST": INPUT NPS 
2040 OPEN 2,8,2,"0:"'+OP$+",S,R" 

2050 DIM $(100),D$(100),P(100):REM UP TO 100 ITEMS ON PRICE 
LIST 

2060 REM READ IN THE OLD PRICE LIST 

2070 I=0 

2080 PRINT “READING IN DATA."; 

2090 I=I+1 : REM LOOP BACK POINT 

2100 PRINT "."; 

2110 INPUT#2,S(I) 

2120 INPUT#2,D$(1) 
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2130 INPUT#2,P(I) 

2140 IF S(1)<>0 AND I<100 THEN GOTO 2090 
2150 PRINT 

2160 PRINT "THE PRICE LIST HAS NOW BEEN READ IN" 
2170 PRINT "PRESS ANY KEY TO CONTINUE" 
2180 GET ASIF A$="'"' THEN GOTO 2180 
2190 PRINT "[CS ]" 

2200 FOR J=1 TO I 

2210 PRINT "[CS ]DO YOU WISH TO CHANGE THIS ITEM (Y/N)" 
2220 PRINT: PRINT:PRINT 

2230 PRINT "SUPPLIER NUMBER ":S(J) 
2240 PRINT "DESCRIPTION ";D$(J) 

2250 PRINT "PRICE ";P(J) 

2260 GET AS:IF A$='""'"' THEN GOTO 2260 
2270 IF AS="N" THEN GOTO 2540 

2280 PRINT: PRINT "ENTER NEW DETAILS" 
2290 PRINT "[CU CU CU CU CU CU J" 

2300 PRINT CHR$(28);"SUPPLIER NUMBER"; 
2510 S$="""' 

2320 GET ASIF A$='""'"' THEN GOTO 2320 
2330 PRINT A$; 

2340 IF ASC(A$)=13 THEN 2370 

2350 SS$=SS$+AS 

2360 GOTO 2320 

2370 S(J)=VAL(S$) 

2380 PRINT "DESCRIPTION "'; 

2390 DS="""' 

2400 GET ASIF AS=""" THEN GOTO 2400 
2410 PRINT AS; 

2420 IF ASC(A$)=13 THEN 2450 

2430 DS=DS+A$ 

2440 GOTO 2400 

2450 DSC J)=D$ 

2460 PRINT "PRICE "; 

2470 P$=""' 

2480 GET AS:IF A$="""' THEN GOTO 2480 
2490 PRINT A$; 

2500 IF ASC(A$)=13 THEN 2530 

2510 PS=P$+AS$ 

2520 GOTO 2480 

2530 PC J)=VAL(PS$) 

2535 PRINT CHRS$(5); 

2540 NEXT J 

2550 OPEN 4,8,4,"0:"'+NP$+",S,W" 

2560 FOR J=1 T0 1 

2570 PRINT#4,S(1) 

2580 PRINT#4,D$(I) 
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2590 PRINT#4,P(1) 
2600 NEXT J 
2610 -CLOSEZ 
2620 CLOSE4 
2630 RETURN 
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P29 POS — Point of sale program 


This program is used as the point of sale utility in the 
system. In order to be able to use the program a price List 
has to be set up beforehand. 


The program uses the binary search method of finding an item 
in the price List. 


COMMANDS 


Key in program and save to disk. 

Ensure that a price List exists on the disk. 
Call the program from the main menu. 

Follow instructions. 


10 REM PRICE LIST SUITE 

20 REM PROGRAM - POINT OF SALE PROGRAM 

30 REM 

40 PRINT "[CS JGOOD MORNING - WELCOME TO THE CBM-16"' 
50 PRINT "POINT OF SALE PROGRAM." 

60 PRINT 

70 PRINT''BEFORE STARTING WE HAVE SET UP SOME" 

80 PRINT “INITIAL DATA.” 

90 PRINT 

100 INPUT “WHAT IS TODAY'S DATE" ;DTS 

110 INPUT “WHAT IS THE PRICE LIST’ ;PL$ 

120 INPUT “WHAT IS THE STORE NAME";SS 

130 PRINT 

140 PRINT "PLEASE ENSURE THAT THE CORRECT PAPER" 
150 PRINT “IS IN THE PRINTER, AND THAT IT IS LINED" 
160 PRINT “UP CORRECTLY." 

170 PRINT 

180 PRINT'PLEASE ENSURE THAT YOU HAVE A CLEAN" 

190 PRINT “NEW'ED DISK TO STORE YOUR DAILY RECORD" 
200 PRINT "ON." 

210 PRINT 

220 PRINT'IF ALL THESE ACTIONS HAVE BEEN CARRIED" 
230 PRINT “OUT. THEN PRESS ANY KEY." 

240 GET AS: IF AS="" THEN GOTO 240 

250 PRINT “{CS JTHE DATA ENTERED TODAY WILL BE HELD ON" 
260 PRINT “DISC WITH THE NAME “DTS 
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270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
485 
490 
500 
505 
510 


POS — Point of sale program 


PRINT "[CD ]TO USE THE PROGRAM ENTER THE DESCRIPTION"; 


PRINT “OF THE ITEM, AND THE QUANTITY SOLD" 

PRINT "[CD ]TO OBTAIN A TOTAL ENTER 'T'" 

PRINT "A TOTAL SLIP WILL THEN BE PRINTED” 

PRINT "[{CD ]YOU WILL THEN ENTER AMOUNT TENDERED” 
PRINT "AND THE PROGRAM WILL INFORM YOU OF THE" 
PRINT "AMOUNT OF CHANGE TO BE RETURNED" 

PRINT "[CD JENTER 'EOD' WHEN THE DAY'S WORK IS DONE” 
PRINT "[CD ]IF EVERYTHING IS OK THEN PRESS ANY KEY" 
GET ASIF AS="" THEN GOTO 360 

OPEN 2,8,2,"0:"+PL$+",S,R" 

DIM N(100),D$( 100) ,P( 100) 

1=0 

I=1+1 

INPUT#2,N(I) 

INPUT#2,D$(1) 

INPUT#2,P(1) 

IF N(I)<>0 THEN GOTO 400 

I=I-1 

CLOSE2. 

PRINT "PRICE LIST NOW IN MEMORY" 

PRINT "PUT IN NEW DATA DISK, THEN PRESS ANY KEY" 
OPEN2,8,2,"0:"+DT$+",S,W" 

GET A$:1F AS=""" THEN GOTO 490 

OPEN1,4:REM OPEN PRINTER 

REM LOOP BACK POINT 

PRINT "[CS RON ] CBM-16 POS PROGRAM 


[ROF J" 


520 
530 


T=0:AS="""2REM FOR NEW CUSTOMER 


PRINT "[CH CD CD CD CD CD CD J" :D$="":REM FOR NEXT ITEM 
PRINT " " 
PRINT "[CU ]DESCRIPTION '"+AS+"[CL CL ]"; 


INPUT D$:DS=AS$+D$ 
IF D$="'T" THEN GOTO 650 
IF D$=""EOD" THEN GOTO 820 
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GOSUB 1000: REM SEARCH PRICE LIST 

IF F=1 THEN GOTO 635 

PRINT "’ "PRINT [CU 
INPUT "QUANTITY";Q 

PRINT " "SPRINT [CU 
PRINT "PRICE ";P 

PRINT " "2PRINT" [CU 
PRINT "COST[]";P*Q 


PRINT#1,D$,Q,P*Q 
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620 T=TtPxQ 

630 PRINT#2,D$:PRINT#2,Q:PRINT#2 -P: PRINT#2,P*Q 
635 GET AS:IF A$=""" THEN GOTO 635 

640 GOTO 530 

650 REM TOTAL PRINTING 

660 PRINT#1,"" 

670 PRINT#1,"TOTAL IS ";T 

680 PRINT#1,""" 

690 PRINT#1,"THANK YOU FOR SHOPPING AT "S$ 

700 PRINT#1,"DATE IS “DTS 

710 PRINT#2,T 

720 PRINT "[CD CD CD CD CD CD CD CD J]TOTAL IS “T 
730 PRINT "ENTER AMOUNT TENDERED" 

740 INPUT A 

750 IF A<T THEN GOTO 730 

760 PRINT "CHANGE IS "A-T 

770 GT=GT+T 

780 PRINT “PRESS ANY KEY FOR NEXT CUSTOMER" 
790 GET AS:IF A$=""" THEN GOTO 790 

800 GOTO 510 

810 REM END OF DAY ROUTINE 

820 PRINT "[CS ]" 

830 PRINT “TOTAL SALES WERE "GT 

840 CLOSE 2 

850 PRINT "PLACE MAIN PROGRAM DISK IN DRIVE" 
860 PRINT “PRESS ANY KEY WHEN READY" 

870 GET AS:IF A$=""" THEN GOTO 870 

880 DLOAD"PRICELIST" 

890 END 

950 REM BINARY SEARCH ALGORITHM 

960 REM DESCRIPTION IN D$ 

970 REM DESCRIPTIONS IN D$(1) 

980 REM PRICE IN P(1) 

990 REM LIST IS ALPHABETICAL 

1000 N=I:F=0:D$(0)="" "' 

1010 M=INT(N/2) 

1020 L=M 

1025 IF LEFTS(D$,1)="" "THEN DS=MID$(D$,2):GOTO 1025 
1030 IF DS$=D$(M) THEN P=P(M): RETURN 

1040 IF DS<DS(M) THEN L=INT(L/2):M=M-L 

1050 IF DS>D$(M) THEN L=INT(L/2):M=M+L 

1060 IF M>N THEN L=INT(L/2)=M=M-L 

1070 IF M>N THEN GOTO 1060 

1080 IF L=0 THEN L=2 

1090 IF DS<D$(M+1) AND D$>D$(M) THEN PRINT "NOT IN 
LIST: F=1: RETURN 

1100 IF M=1 AND DS<D$(M) THEN PRINT "NOT IN LIST": F=1:RETURN 
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1110 GOTO 1030 
1120 F=1 
1130 RETURN 
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P30 PRINT— 
Price list print program 
This is the main report program of the system. This program 


allows the user to produce a nicely laid out report of the 
store prices. 


COMMANDS 
Key in program and save to disk or tape. 


Call the program from the main menu. 
Follow instructions. 


10 REM PRICE LIST SUITE 
20 REM PROGRAM - PRICE LIST PRINT PROGRAM 


30 REM 

40 PRINT BECS CD CD RON ] 
[ROF J"; 

50 PRINT "[RON ] PRINTER OPTIONS [ ROF 

ae 

60 PRINT “[RON ] [ROF 

ales 

70 PRINT:PRINT:PRINT 

80 PRINT "[RON ] 1. PRINT LIST TO SCREEN [ ROF 

‘les 

90 PRINT 

100 PRINT "[RON ] 2. PRINT LIST TO PRINTER [ ROF 

lee 

110 PRINT 

120 PRINT "[RON ] 3. PRINT LIST TO BOTH [ROF 

ie 

130 PRINT 

140 PRINT "[RON ] 4. GO BACK TO MAIN MENU [ ROF 

if 

150 PRINT 


160 PRINT "ENTER NUMBER CORRESPONDING TO FUNCTION" 

170 GET ASIF A$="""' THEN GOTO 170 

180 A=VAL(AS) 

190 IF A<>1 AND A<>2 AND AS>3 AND A<>4 THEN GOTO 150 
200 IF A=4 THEN DLOAD ''PRICELIST" 

210: PRINT.” Les. 1" 

220 PRINT "WHAT IS THE NAME OF THE PRICE LIST": INPUT NS 
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250 OPENZ2Z,8,2,'0- "+N$+",S,R” 

240 I=0 

250 IF A=2 THEN GOTO 300 

260 PRINT AWS RON ] PRICE 
[ROF J" 

270 PRINT 

280 PRINT "NUMBER"',"'DESCRIPTION",''PRICE 
290 IF A=1 THEN GOTO 330 

300 OPEN 1,4 

310 PRINT#1," PRICE LIST" 
320 PRINT#1,"NUMBER'',"'DESCRIPTION","PRICE" 
330 I=I+1 

340 INPUT#2,N 

350 INPUT#2,D$ 

560 INPUT#2,P 

365 IF N=0 THEN GOTO 470 

370 IF A=1 OR A=3 THEN PRINT N,DS,P 

380 IF A=2 OR A=3 THEN PRINT#1,N,D$,P 

390 IF A=2 THEN GOTO 330 

400 IF 20*INT(I1/20)<>1 THEN GOTO 330 

410 PRINT "PRESS ANY KEY FOR NEXT PAGE" 
420 GET AS:IF AS=""' THEN GOTO 420 

430 PRINT ys (EE RON ] PRICE 
[ROF ]" 440 PRINT 

450 PRINT "NUMBER",'"'DESCRIPTION’,'PRICE 
460 GOTO 330 

470 CLOSE 1 

480 CLOSE 2 

490 PRINT: PRINT 

500 PRINT "PRESS ANY KEY TO RETURN TO MENU" 


GET AS:IF A$="""' THEN GOTO 510 
GOTO 10 


ul 


eS f 


EES? 
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P31 FDUMP — File dump utility 


This program can be used to dump a sequential disk file to 
either the screen or printer. It is very useful to check that 
a data file has been set up correctly. Note that it cannot 
be used to dump program files. 


We have, however, found it useful on other occasions. If you 
have a disk then the routine will find a useful place in your 
Library. 


The program can be amended to examine tape files as well. 
COMMANDS 


Key in program and save to disk or tape. 
Call the program via MENU program. 
Follow instructions. 


10 REM PRICE LIST SUITE 

20 REM FILE DUMP UTILITY 

30 REM 

40 PRINT "[CS RON ] 

[ROF ]"; 

50 PRINT "[RON ] FILE DUMP UTILITY [ROF 
4 

60 PRINT "[RON ] [ROF 

}" 

70 PRINT: PRINT 

80 PRINT "THIS PROGRAM CAN BE USED TO OBTAIN A" 

90 PRINT "DUMP OF A DISK FILE TO SCREEN OR PRINTER" 

100 PRINT "THE OPTIONS AVAILABLE ARE:" 

110 PRINT: PRINT 

120 PRINT "1. DUMP A FILE TO SCREEN" 

130 PRINT "2. DUMP A FILE TO PRINTER" 

140 PRINT "3. RETURN TO MAIN MENU" 

150 PRINT 

160 PRINT “ENTER NUMBER CORRESPONDING TO CHOICE": INPUT A 

170 IF A<>1 AND A<>2 AND A<>3 THEN GOTO 160 

180 IF A=3 THEN DLOAD'PRICELIST" 

190 PRINT "ENTER THE NAME OF THE FILE TO BE " 

200 INPUT "DUMPED"; A$ 


P31 


210 
215 
220 
230 
240 
245 
250 
260 
270 
280 
290 
300 
310 


FDUMP -— File dump utilty 


OPEN 578757 Os tAS1 SR” 

IF A=1 THEN OPEN1,4 

GET#5 ,AS 

IF ST<>O THEN PRINT:PRINT'SYSTEM STATUS IS "ST:GOTO 260 
IF A=1 THEN PRINT A$; 

IF A=2 THEN PRINT#1,A$; 

GOTO 220 

IF A=2 THEN PRINT#1:CLOSE 1 

CLOSES 

PRINT "PRESS ANY KEY TO RETURN TO MENU" 
GET AS: IF AS$=""' THEN GOTO 290 

GOTO 10 

END 
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P32 TIDY 


This is the only program in the book that cannot easily be 
adapted for use with a cassette. 


This program tidied up our outputs for the purposes of 
printing this book. 


You might find this program useful when you send your 
Listings to magazines, or whatever. 


The program takes the CBM-16 cursor control characters and 
writes them out in a printable form. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM GRAPHICS TIDY 
20 PRINT [CS ]" 

30 PRINT "[CD CD JTHIS PROGRAM IS USED TO TIDY UP PRINTER" 
40 PRINT "OUTPUT FOR OUR LISTINGS. WE HAVE USED" 

50 PRINT "THE FOLLOWING CONVENTION FOR PRINTING" 

60 PRINT “'GRAPHICS." 

70 PRINT "[CD CD CR ]1. ALL GRAPHICS ARE ENCLOSED BETWEEN [ 
de 

80 PRINT [CR ]2. THE SHIFT GRAPHIC KEYS ARE SHOWN AS" 

90 PRINT "[CR CR CR CR ]JTHE NORMAL LETTER" 

100 PRINT "[CR ]3. THE COMMODORE KEY GRAPHICS ARE SHOWN"; 
110 PRINT "[CR CR CR CR JAS LOWER CASE LETTERS" 

120 PRINT "[CR ]4. THE CURSOR CONTROL KEYS ARE SHOWN" 

130 PRINT "[CR CR CR CR JAS C-L,C-R,C-U AND C-D FOR LEFT" 
140 PRINT "[CR CR CR CR JRIGHT, UP AND DOWN" 

150 PRINT "[CR ]5. CLEAR IS SHOWN AS C-S, HOME AS C-H" 

160 PRINT "[CD CD JWHAT IS THE NAME OF THE SEQUENTIAL" 

170 PRINT "'PROGRAM FILE"; 

180 INPUT FS 

190 INPUT"ENTER OUTPUT FILE NAME"; FOS 

200 PRINT "PROCESSING"; 
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210 
220 
230 
240 
250 
260 
270 
280 


STOP 


TIDY 


OPEN 6,8,6,"0:"+F$+",S,R" 

OPEN 5,8,5,"0:"+FOS+",S,W" 

OPEN 15,8,15 

GOSUB 520 

Z=Q:REM FLAG TO SAY WE ARE IN GRAPHICS 
REM THE FOLLOWING LOOP IS THE TIDY LOOP 
GET#6 AS 

IF ST<>O THEN 470 

A=ASC(A$+CHRS(O)) 

IF A>31 AND A<95 THEN GOTO 430 

IF A=13 THEN GOTO 430 

IF Z=O0 THEN PRINT#5,"[";:Z=1 

IF A=17 THEN PRINT#5,"CD "; 

IF A=19 THEN PRINT#5,"'CH "; 

IF A=29 THEN PRINT#5,"CR "; 

IF A=145 THEN PRINT#5,"CU "; 

IF A=157 THEN PRINT#5,"CL "> 

IF A=147 THEN PRINT#5,"CS " 
IF A=18 THEN PRINT#5,"RON "> 
IF A=146 THEN PRINT#5,"'ROF "'; 
IF A=126 THEN PRINT#5,"PI "; 
GOTO 450 

IF Z=1 THEN PRINT#5,""]"'>:Z=0 
PRINT#5,AS; 

PRINT "."; 

GOTO 270 

CLOSE 6 

CLOSE 5 

PRINT:PRINT "JOB FINISHED" 
PRINT "STATUS = "ST 

END 

REM CHECK SUCCESSFUL OPEN 
INPUT#15,A$,BS$,C$,D$ 


‘Nos 
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IF VALCA$)>0 THEN PRINT "DISK FAULT": PRINT AS,BS,C$,D$: 


550 RETURN 
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P33 Monthly accounts 


In our households, one of the tasks which has to be done is 
the monthly budget. It seemed to us that this was an_ ideal 
use for the Commodore 16. 


In this program we again make use of the alternative 
character set of the C-16, all words presented are in_ both 
upper and tower case. Thus when entering the program we 
first tell you to press the Commodore and shift keys 
together. 


Once the program is running, it prompts users to enter all 
their outgoings and income. The program ends with a report 
on to paper or screen of the monthly budget. 


COMMANDS 


Press the Commodore and shift keys together. 
Key in the program and RUN. 
Follow instructions. 


10 rem program ~- monthly accounts 

20 scnclr 

30 print tab(10);"[ron Jmonthly accounts[rof ]'" 
40 a=ti 

50 if ti<at+150 then 50 

60 print chr$(14) 

(ODE Ant “Les cd. cdca cd cdi J” 

80 print " This program helps you to budget your" 
90 print " monthly outgoings and incomings.” 

100 print “ The program prompts you to enter your 
110 print “ financial dealings and produces a" 
120 print " balance sheet for the next month." 
130; oc iat Ledca 

140 print “ If you want to use a printer then 
150 print " ensure that it is connected up now." 
160 print ‘[cd cd ] Press any key to continue"; 
170 get a$:if a$=""' then 170 

180 print."Les 4° 
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print“ ~ron=4 Regular Outgoings [rof 
print 

print "Enter mortgage repayments. $"; 

input m 


input "Enter rent payments. $"';re 

input "Enter property taxes. $'';pt 

input "Enter electricity payments. $"';7e1 

input "Enter gas payments. $'';9s 

cr=0 

rem take in all credit card repayments 

do while c<>0 

print "[cd ron ]Credit Card Repayments[rof cd ]" 
input "Enter credit repayment. O for Last";c 
cr=crtc 

Loop 

print "[cd ron ]JEnter any other regular payments.[rof cd 


input "Enter total. $"yot 

rg=mtretptteltgstcrtot:rem regular payments 

print MES i he 

print "[ron ] Other Outgoings This Month [rof 


print "Use estimates if actual amounts are not" 

print "known.[cd cd ]" 

print "Enter total of all outstanding bills." 

input "$";ob:rem old bills 

input "Grocery bill. $";q 

input "Butcher's bill. $";b 

input "Entertainment allowance. $'';en 

print. tes |; 

bt=gtbten:rem bills this month 

print “[ron ] Other bills due this month eot 


print "[cd JEnter other bills - use 0 to finish[cd ]" 
do while bl<>0 

input “Amount of bill. $";7bl 

bs=bstbl 

Loop 

bt=bttbs 

tt=rgqtobtbt:rem total outgoings 

print "[cd cd ]Total outgoings = $";tt 

print "[cd cd ]Press any key to continue” 

get a$:if a$=""’ then 580 

print “Les: J: = 

print "[ron ] MonthLy Income [rof 
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610 
620 
630 
640 
650 
660 
670 
680 


P33 Monthly accounts 


input "[cd JEnter your monthly net income. $"';i1 
print "Lcd JEnter your spouse's monthly net income” 
input "$";i2 

input "[cd JEnter any other net income. $"7713 
i=i1+i2+13 

ba=i-tt:rem balance 

print "Lcd cd ]JTotal income is $";7i 

print "[cd cd ]Press any key to continue" 


690 get a$:if a$=""' then 690 

700 pe int, bes cd.cd cd cd cd <)> 

710 print "' Do you want the report to be printed” 

720 print “ on the screen or onto the printer?" 

730 print 

740 print " 1. Screen" 

7ge) OR «J a 0 ama rap Printer” 

760 print 

(00..1nput- Enter 1 or -2 > sr 

780 if r<>1 and r<>2 then print 

“pews [cu ]'':goto 770 

790 if r=2 then open 1,4,7:cmd 1 

800 print "[cs ]"; 

810 print 

“Fron J MONTHLY BUDGET Prof” 
820 print 

830 print''Lron ] COMMENT OUT IN Erot-4 
840 print "Regular" 

850 print "amounts" ;spc(18-Len(str$(rg)))zrg 

860 print "Lcd JBills this" 

870 print "month "sspc(18-Len(str$(bt)))zbt 

880 print "[cd JOutstanding "' 

890 print "bills from" 

900 print"last month" sspc(15-lLen(str$(ob)));0b 

910 print 

920 print "“Lron ]Total Outf[rof ]";spc(16-len(str$(tt)))stt 
930 print 

940 print "Lron ]Total Income[rof ]";spc(23-Len(str$(i))); i 
950 print 

960 if ba<O then print "[ron ]Debit Balance[rof J"; 


spc(22-Llen(str$(ba)))sbaz gota 980 


970 
ba 

980 
990 


print "“[Lron ]Credit Balance[rof ]'';spc(11-len(str$(ba))); 


get a$:if a$="" then goto 980 
if r=2 then close 1 


1000 end 
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P34 Conversion 


This is a general purpose conversion utility, which we have 
implemented with eighteen different conversion factors. It is 
fairly straightforward to choose other units to be converted 
by changing the data statements at the end of the program. 


Eighteen conversion factors were chosen to make the main menu 
fit the screen. 


Once the conversion has been chosen, you have to decide which 
way the conversion has to proceed. For example, centimeters 
to inches or inches to centimeters. 


Note that the American gallon (6 pints) is used. 


COMMANDS 


Key in the program and RUN. 
Select from menu. 


10 REM PROGRAM - CONVERSION UTILITY 
20: PRINT “ECS CD CD: CDC ‘CD-CD..CD Cb cp.” 

30 PRINT "' CONVERSIONS UTILITY" 

40 A=TI 

50 IF TI<A+150 THEN GOTO 50 

60 PRINT "[CS ]" 

70 PRINT " THIS PROGRAM IS USED AS A GENERAL" 

80 PRINT '' PURPOSE CONVERSION UTILITY. THE DATA" 
90 PRINT " FOR THE CONVERSIONS ARE HELD WITHIN" 
100 PRINT " THE PROGRAM." 

110 PRINT "[CD JPRESS ANY KEY TO CONTINUE" 

120 DIM C$(18,2),D(18) 

130 GET AS:IF A$='"""' THEN GOTO 130 

140 PRINT 

"TCS RON ] CONVERSIONS [ROF ]" 
150 RESTORE 

160 FOR I=1 TO 18 

170 READ C$(1,1),C$(1,2) 

180 PRINT I SPC(6-LENCSTRS(1)));C$C(1I,1)7" TO "sC$(I,2) 
190 NEXT I 

200 PRINT 
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210 PRINT “CHOOSE ITEM BY ENTERING THE REQUIRED" 

220 INPUT ‘'NUMBER'';C 

225 IF C=O THEN STOP 

230 FOR I=1 TO 18:READ DCI)=NEXT I 

240 PRINT "[CS ]" 

250 PRINT "(RON ] OPTIONS AVAILABLE [ROF 


260 PRINT: PRINT 

270 PRINT “te  eCS(Cs 1 TO “SC$CC ye) 

280. PRINT “2: “=C$EC;2).°" TO" SC$CC71) 

290 PRINT 

300 PRINT "CHOOSE OPTION BY ENTERING APPROPRIATE " 

310 INPUT "“NUMBER";CH 

320 IF CH=2 THEN D(C)=1/D(C):TS$=C$(C,1)2CS(C,1)=C$(C,2): 
C$(C,2)=TS 

330 REM IF ALTERNATIVE OPTION REQUIRED 

340 REM THEN INVERT FACTOR AND SWAP ITEMS 

350 PRINT:PRINT 

360 PRINT "ENTER VALUE OF "CS(C,1); 

370 INPUT A 

380 B=AxD(C) 

390 PRINT: PRINT 

L£QO-PRINT As “CS(C, 1030S." SB SGS(C2) 

410 PRINT:PRINT 

420 PRINT "PRESS ANY KEY TO CONTINUE" 

430 GET ASIIF A$=""' THEN 430 

440 GOTO 140 

450 END 

1000 DATA INCHES,CM,FEET ,METERS,YARDS METERS MILES KM 
1010 DATA TEASPOONS ,CC, TABLESPOONS ,CC CUPS LITERS PINTS 
1020 DATA LITERS, QUARTS,LITERS ,GALLONS ,LITERS ,0Z,GRAMS 
1030 DATA POUNDS KILOGRAMS, TONS -KILOGRAMS ,MILES PER HOUR, 
METERS PER SEC 

1040 DATA SQUARE YARDS,SQUARE METERS, YEARS ,-SECONDS 

1050 DATA ATMOSPHERES,CM HG,ACRES,HECTARES 

1060 REM CONVERSION DATA 

1070 DATA 2.540,.3048,.9144,1.609,4.929,14.788,.2366 
1080 DATA .4732,.7463,3.785,28.3495, .4536,907 .2,.447,.8361, 
31536000 

1090 DATA 76,.4047 
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P35 Birthday list 


This program uses one of the SORT routines developed 
elsewhere in the book, the so-called Bubble Sort. 


The Birthday List program is used to store all _ those 
birthdays that you have to remember. The program sorts. the 
birthdays into date order, and then prints out all bithdays 
Left in the current year. ALL birthdays are stored in data 
statements. 


COMMANDS 


Key in the program and RUN. 

Follow instructions. 

When you can folllow the operation of the program, amend the 
data statements. 


10 REM PROGRAM - BIRTHDAY LIST 

20 SCNCLR:PRINT TAB(11);"“BIRTHDAYS": PRINT: PRINT 

30 PRINT "THE BIRTHDAYS HELD IN THIS PROGRAM ARE" 
40 PRINT''HELD IN THE FORM OF DATA STATEMENTS" 

50 PRINT ‘'STARTING AT LINE 2000." 

60 PRINT 

70 PRINT ‘THE PROGRAM CAN BE USED TO HOLD UP TO " 
80 PRINT 100 BIRTHDAYS, BUT OF COURSE THIS COULD" 
90 PRINT "BE AMENDED IF YOU SO WISH." 

100 PRINT "THE FORMAT OF THE DATA IS AS FOLLOWS:" 
110 PRINT 

120 PRINT "DATA NAME,MMDD" 

130 PRINT 

140 PRINT "WHERE MM IS THE MONTH NUMBER AND DD IS" 
150 PRINT “THE DAY NUMBER" 

160 PRINT 

170 PRINT "MAKE THE LAST TWO ELEMENTS OF THE DATA" 
180 PRINT “BE EOF,0" 

190 PRINT 

200 PRINT "'PRESS ANY KEY TO CONTINUE” 


102 P35 


210 GETKEY AS 

220 PRINT “LES.<CD=CO.cD: I] 
230 DIM N$( 100) ,D( 100) 

240 REM READ IN DATA 

250 1=0 

260 DO 

270. T=E441 

280 READ N$(I),D(1) 

290 LOOP UNTIL NSC(I)="EOF" 
300 I=I-1 

310 GOSUB 620 

320 REM USEFUL GET DATE ROUTINE 


Birthday list 


330 PRINT "WHAT IS TODAY'S DATE (MM/DD)[CL CL CL CL CL CL 


20S." 

340 GETKEY AS 

350 PRINT AS z2DS=DS+AS 

360 GETKEY AS 

370 PRINT ASz:2DS=DS+AS 

380 PRINT "/"; 

390 GETKEY AS 

400 PRINT AS;:DS=DS+AS 

410 GETKEY AS 

420 PRINT A$ 72DS=D$+A$ 

430 FOR Z=1 TO 4 

440 V=ASC(MID$(D$,Z,1)) 

450 IF V<48 OR V>57 THEN Z=4:T=1 

460 NEXT Z 

470 IF T=1 THEN PRINT: T=0:D$=""":GOTO 330 
480 D=VAL(DS) 

490 PRINT "[CS ]" 

500 PRINT : PRINT : PRINT 

510 PRINT “THE BIRTHDAYS LEFT THIS YEAR ARE:" 
520 PRINT : PRINT : PRINT 

530 MT$=""JANFEBMARAPRMAY JUNJULAUGSEPOC TNOVDEC" 
540 FOR J=1 TO I 

550 IF D(J)<D THEN NEXT J 

560 DAY=D(J)-100*INT(DCJ)/ 100) 

570 MO=INT(D(J)/100)-1 


580 PRINT N$(J);""'S BIRTHDAY IS ";DAY;" “;MIDS(MTS,3xM0+1,3) 


590 NEXT J 

600 END 

610 REM SORT ROUTINE 

620 FOR X=1 TO I-71 

630 FOR Y=X+1 TO I 

640 IF DCY)<D(X) THEN GOSUB 690 
650 NEXT Y 

660 NEXT X 
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670 RETURN 

680 REM SWAP ROUTINE 

690 T=DC(Y):TS=NSCY) 

700 DCY)=D(X)=INSCY =ENS(X) 

710 DCX)=TINS(X)=TS 

720 RETURN 

730 REM BIRTHDAYS 

740 DATA JIM SMITH,1130,BILL SMYTHE,0812,LIZ GRAHAM,0303 
750 DATA JOHN GORDON,0419,JOHN FERGUSON,0407,TERESA 
GORDON, 1222,E0F,0 
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P36 Calendar 


This program can be used to print out the calendar for any 
month in the twentieth century. 


COMMANDS 


Key in the program and RUN. 
Enter month and year when requested. 


10 REM PROGRAM - CALENDAR 
20 PRINT "[CS CD CD CD JTHIS PROGRAM CAN BE USED TO PRINT THE 


30 PRINT "CALENDAR FOR ANY MONTH IN THE TWENTIETH" 
40 PRINT "CENTURY." 

50 DIM C(7,6) 

60 RESTORE 

65 PRINT "[{CD Cbd J" 

70 INPUT "WHICH MONTH DO YOU REQUIRE" ;M$ 

80 INPUT "WHICH YEAR DO YOU REQUIRE" ;Y 

90 PRINT "CALCULATING - PLEASE WAIT" 

100 D$=""MONTUEWEDTHUFRISATSUN" 

110 REM GET NUMBER OF DAYS IN MONTH 

120 M=0 

130 READ Q$,F,D 

140 M=M+1 

150 IF M=13 THEN PRINT "INVALID MONTH":GOTO 60 
160 IF LEFT$(M$,3)<>LEFT$(Q$,3) THEN GOTO 130 
170 IF Y>1900 THEN Y=Y-1900 

180 L=INT(Y/4) 

190 OF=Y4L 

200 IF Y-INTCY/4)*4=0 AND M<3 THEN OF=OF-1 
210 IF Y-INTCY/4)*4=0 AND M=2 THEN D=29 

220 OF=OF-INTCOF/7)*?/ 

230 F=F+OF 

240 F=F-INTCF/7)*7 

250 IF F=0 THEN FF? 

260 FOR I=1 TO F-1 

270 €(1,1)=0 

280 NEXT I 

290 DY=1 

300 FOR I=F TO 7 
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320 DY=DY+1 

330 NEXT I 

340 FOR J=2 TO 6 

350 FOR I=1 TO 7 

360 CCI,J)=BbY 

370 DY=DY+1 

380 IF DY>D THEN I=/72J=6 
390 NEXT I 

400 NEXT J 

410 PRINT "[CS ]"' 

420 PRINT "[CD CD CD CR CR CR CR CR CR CR CR CR CR CR CR CR 


CR J"sM$-"—"s¥+1900-"[CD CD ]" 

430 FOR I=1 TO 7 

440 PRINT " '" sMIDS(D$,CI-1)*3+1,3) 

450 NEXT I 

460 PRINT "[CH CD CD CD CD CD CD CD CR CR CR CR CR CR CR CR 
GR "2 


470 FOR J=1 TO 6 
480 FOR 1=1 T0 7 
485 C$=STRS(C(I,J))21F LEN(C$)=2 THEN C$=" "+C$ 
490 IF CC(1,J)<>0 THEN PRINT C$;"{CD CL CL CL J"; 


495 IF C(I,J)=0 THEN PRINT" "“s"[CD CL CL CL J"; 

500 NEXT I 

510 PRINT "[CU CU CU CU CU CU CU CR CR CR J"; 

520 NEXT J 

530 GET AS:IF A$=""" THEN 530 

540 DATA 

JANUARY ,1,31,FEBRUARY ,4,28,MARCH,4,31,APRIL,7,30,MAY ,2,31,JUN 
E,5,30 


550 DATA JULY,7,31,AUGUST ,3,31,SEPTEMBER,6,30,0CTOBER, 1,31 
560 DATA NOVEMBER,4,30,DECEMBER,6,31 
570 DATA ,, 
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P37 Telephone list 


ram allows the user to select a telephone 


from a List held as data statements. 


You do not have to enter the full name to select the 
As Long as the string entered is part of one of the 
then the telephone number is displayed. 


COMMANDS 


Key in the program and RUN. 


Follow in 


structions. 


10 REM PROGRAM ~ TELEPHONE LIST 


20 SCNCLR 
30 PRINT 
40 PRINT 
50 PRINT 
60 PRINT 
70: PRINT 
80 PRINT 
90 PRINT 
100 PRINT 
110 PRINT 
120 PRINT 
130 PRINT 
140 PRINT 
150 PRINT 
160 PRINT 
170 PRINT 
180 PRINT 
190 PRINT 
200 PRINT 
210 PRINT 
220 GETKE 
230 DIM N 
240 1=0 
250 DO 
260 I=1+1 


"THIS PROGRAM IS USED AS A PERSONAL “ 
“TELEPHONE DIRECTORY." 


"THE DATA ARE HELD IN THE LINES FROM 1000" 
"THE PROGRAM CAN HOLD A DATABASE OF UP 10"; 
"400 NAMES AND TELEPHONE NUMBERS. THIS” 
"CAN OF COURSE BE AMENDED BY THE USER.” 


"THE PROGRAM WILL SEARCH THROUGH THE" 
"DATABASE LOOKING FOR A MATCH AGAINST" 
""A NAME INPUT TO THE COMPUTER." 


"A PARTIAL MATCH WILL ALSO GIVE NUMBER." 
"FOR EXAMPLE, IF YOU INPUT ‘BILL’, THEN" 
"A MATCH WILL BE FOUND FOR BILL SMITH " 
"AND BILL JONES" 


"PRESS ANY KEY TO CONTINUE" 
Y AS 
$(100,2) 


270 READ N$(1,1),N$(1,2) 


number 


number . 


names, 


410 
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LOOP UNTIL NS$C(I,1)="EOF” 

I=I-1 

c=0 

SCNCLR 

PRINT "WHOSE NUMBER DO YOU REQUIRE” 
INPUT NS 

LA=LEN(NS) = F=0 

FOR J=1 TO I 

LB=LEN(NS(J,1)) 

IF LA>LB THEN NEXT J 

FOR K=1 TO LB-LA 

IF NS=MIDSCNSCJ,1),K,LA) THEN F=1 
NEXT K 

IF F=1 THEN PRINT NSC(J,1)7""S NUMBER IS 


"NSCS ,2)2 F202 C=C+1 


420 
430 
440 
450 
460 
470 
480 
490 
500 
510 


NEXT J 

IF C=O THEN PRINT "WE HAVE NO NUMBER FOR ";NS 
PRINT "ANOTHER NUMBER (Y/N)"’ 

GETKEY AS 

IF A$="Y'"' THEN GOTO 300 

END 

DATA BILL SMITH,1235,BILL JONES ,45678 

DATA ALICE GRAHAM,0101 256 3456 

DATA JOHN GORDON,03552 49400 

DATA EOF,0 
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P38 Investments 


This program calculates how much income can be generated from 
capital if the interest earned by that capital is known. 


The user is presented with the choice of increasing his or 
her income at the expense of reducing capital. 


COMMANDS 


Key in the program and RUN. 


10 REM PROGRAM - INVESTMENTS 

20 SCNCLR 

30 PRINT “THIS PROGRAM ALLOWS YOU TO PLAN YOUR “ 
40 PRINT "FUTURE INVESTMENTS, GIVEN THAT YOU WISH" 
50 PRINT “YOUR INVESTMENTS TO SUPPLY A REGULAR" 
60 PRINT ‘INCOME. 

70 PRINT 

80 PRINT "PRESS ANY KEY TO CONTINUE" 

90 GETKEY A$ 

100 PRINT 

110 INPUT "MONTHLY INCOME REQUIRED $"'71 

120 PRINT “ENTER CURRENT ANNUAL INTEREST RATE (Z)'' 
130 INPUT R 

140 R=R/100 

150 IN=I*12/R 

160 PRINT ''AN INVESTMENT OF $":INTCIN*100)/100 
170 PRINT “WILL PROVIDE A MONTHLY INCOME OF $'';1 
180 PRINT 

190 PRINT “'NOTE THAT NO CAPITAL HAS BEEN USED" 
200 PRINT 

210 PRINT “IF YOU WISH TO USE UP YOUR CAPITAL." 
220 PRINT “HOW MANY YEARS DO YOU WISH AN INCOME" 
230 PRINT ‘'FOR? ENTER NUMBER OF YEARS." 

240 INPUT YR 

250 R=R/12 

260 T=(1+R)*(12*YRS) 
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Investments 


IN=1*(T-1)/R/T 

PRINT 

PRINT "AN INVESTMENT OF $";INTCIN*100)/100 
PRINT "WILL PROVIDE AN INCOME OF $"7I 
PRINT "FOR '';YR;"' YEARS" 

END 
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P39 Loan repayment schedule 


We use this program to try to dissuade ourselves from buying 
something using a loan from a finance house. 


It can be quite illuminating to have a note of the full 
schedule of repayments for a loan and to see how slowly” the 
amount owed drops. 


If the interest rate changes during the period of a loan, 
then simply RUN the program again as if you had taken out a 
new loan, with a reduced amount borrowed. 


The program allows you to choose either a screen or a printer 
Output. If you have a printer which does not have automatic 
Line feed on carriage return, Then use a file number greater 
than 128 tor the printer control instructions. As it stands 
the program will work with the Commodore MPS801 and with most 
other printers. 


COMMANDS 


Key in the program and RUN. 
Follow the instructions. 


10 REM LOAN REYPAYMENT SCHEDULE 

ZO REM KKKKKAKKKKAKKKKKE KKK KKK 

30 REM 

40 COLOR 0,1:REM BLACK SCREEN 

390 COLOR 1,4,6:REM CYAN INK 

60 COLOR 4,1:REM BLACK BORDER 

70 SCNCLR 

80 PRINT:PRINT 

90 PRINT TAB(8)"LOAN REPAYMENT SCHEDULE" 

100 PRINT TAB(8)"'$$S$S$$$SS$SSSSSFSSSSSS$SS" 

110 PRINT:PRINT 

120 PRINT TAB(4)"THIS PROGRAM CAN BE USED TO PLAN" 
130 PRINT TAB(4)"'THE REPAYMENTS SCHEDULE FOR A" 
140 PRINT TAB(4)"LOAN. THE LOAN IS PAID BACK AT A" 
150 PRINT TAB(4)"FIXED MONTHLY RATE. THE INTEREST" 
160 PRINT TAB(4)"IS ALSO FIXED. THE PROGRAM" 

170 PRINT TABC4)"*PRODUCES A REPAYMENT TABLE." 
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180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


Loan repayment schedule 


PRINT 

PRINT TAB(4)"1IF YOU WISH TO USE A PRINTER," 
PRINT TABC(4)"ENSURE ONE IS CONNECTED NOW. THE" 
PRINT TABC4)"'PROGRAM ASSUMES THE PRINTER IS" 
PRINT TAB(4)"DEVICE NUMBER 4." 

PRINT: PRINT 

PRINT TAB(6)CHRS( 18)" PRESS ANY KEY TO CONTINUE " 
GETKEY AS 

REMKKKKKKKKKKKKKKKKKKKKKKKKKEKKE 

SCNCLR=: PRINT 

INPUT"'WHAT IS THE AMOUNT OF THE LOAN"; AM 

PRINT 

INPUT''WHAT IS THE INTEREST/MONTH (2%)"71T 

PRINT 

PRINT''WHAT IS THE NUMBER (1-12) OF THE" 
INPUT''FIRST REYPAYMENT MONTH'';MN 

PRINT 

INPUT"'WHAT IS THE MONTHLY REPAYMENT"; RP 

PRINT 

INPUT''WHAT YEAR IS IT";YR 

REM NO TRAPS ON ENTRIES. SILLY ENTRIES WILL GIVE 


RESULTS. 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 


620 : 


630 


REMAKKKKKKKKKKKKKKKKKKKKKKEKKKKER 
SCNCLR: PRINT: PRINT: PRINT: PRINT 

PRINT TAB(4)"SELECT YOUR OUTPUT DEVICE BY" 

PRINT TAB(4)"PRESSING:" 

PRINT 

PRINT TABC10)CHRS(18)"' KEY 1 "CHR$( 146)" - SCREEN" 
PRINT 


PRINT TABC10)CHRS( 18)" KEY 2 "'CHRS( 146)" - PRINTER" 


DO:GET A$: LOOP UNTIL AS$=""1" OR AS$="'2" 
DV=VAL(AS ) 

REMA KAKA KKKKKRKK KKK KKK KKK KKKKK KR 
SCNCLR 

ON DV GOSUB 780,850:REM HEADINGS 
PD=O:REM AMOUNT PAID BACK 

REM A KAA KKAKAKKKKKKKKKKKKKEKKEK 

REM CALCULATION 

DO 
> MN=MN+1 

IF MN=13 THEN YR=YR+1:MN=1 
AM=AM*(1+1T/100) 

AM=AM-RP 

PD=PD+RP 

> IF AM<O THEN PD=PD+INT(100*AM+.5)/ 100: AM=0 
> ON DV GOSUB 930,980:REM PRINT RESULTS 

LOOP UNTIL AM=0 


i 


STLLY 


P39 Loan repayment schedule 


LOOP UNTIL AM=0 

IF DV=2 THEN CLOSE 3 

END 

REMARK AKKKAKKKKKKKKKKKKERKEK KK KKK 
REMAX KKKKAKKKKKKKKKKEKEKRKEK KK KKK 


REM 

REM kkk kk keke 
REM * * 
REM * SUBROUTINES x 
REM * * 
REM kkk kkk kkk kee 
REM 


REM XKAKKKKKKKKKKKKKKKKKKKKKK KAKA 

REM XXKKKKKKKKKKKKKKKKKKKK KK KKK KK 

REM SCREEN HEADING 

PRINT TAB(3)"YEAR","MONTH",""AMOUNT" "AMOUNT" 
PRINT TAB(21)""PAID","" OWED" 

PRINT \TAB(S) SSne7, 2352 2 ia De en i 


RETURN 
REMKKAKAKKKK KKK KKK RRR ERE KK KK KKK 


REMAKAKKKKKKKKKKKKKKKKERKERE KAKA 

REM PRINTER HEADING 

OPEN 3,4 
PRINT#3,TAB(3)YEAR",''MONTH", AMOUNT", "AMOUNT" 
PRINT#3,TAB(33)"PAID"," OWED" 
PRENT#S,TABCS) Co —-= =a == ie ati ies eS 2a : 


RETURN 
REM ER KK RRKK KKK KR KKK RRR RRR KK KR KK 


REEMA RR II IO IOI III Ik ok 

REM SCREEN RESULTS 

PRINT TABC2)YR,MN,PD,INTCAM* 100+ .5)/100 
RETURN 

REM 2K RR RIK IOI IOI TI RR IK 

REMARK AKREK KK RK KERRIER RRR KK KKK 

REM PRINTER RESULTS 

PRINT#3,TAB(2) YR,MN,PD,INT(AM*100+.5)/100 
RETURN 


1000 REMKKKKKKKKKKKKKKKKKKKKKKKKK KKK 
1010 REMKKKKKKKKKKKKKKKKKKKKKKAK KA KKK 
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a. bs te pe 


NE NE OWONHUMAWNE HK QWONHMAAWNYK Me OwWan 


b—* pat 


AMOUNT 
PAID 


6206 
6313.96 


AMOUNT 
OWED 
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P40 Space shapes 


This program generates some space type shapes which you may 
find useful in (say) games programs. 


COMMANDS 


Key 


in the program and RUN. 


Press the space bar to return to the normal character set. 


REM SPACE GAME SHAPES 

REM tok a kik ik kek 

REM 

POKE 52,47:POKE 56,47:CLR:REM RESERVE RAM 
REN RR I I I IO I eae 
MC=12032=REM START OF MACHINE CODE ROUTINE 
RA=12288:REM START OF CHARACTER RAM 
CC=65298:REM CONTROLS CHARACTER LOCATION 
COLOR 0,1:REM BLACK SCREEN 


COLOR 1,2:REM WHITE INK 
COLOR 4,7,3:REM BLUE BORDER 
REM xk aR KRKKK RK RK KK RRR K KKK 
SCNCLR= PRINT: PRINT 
PRINT TAB(18)"WAIT" 
RESTORE 
FOR N=0 TO 33 
: READ A:POKE MC+N,A 
NEXT=REM LOAD MACHINE CODE ROUTINE 
SYS MC2REM TRANSFER CHARACTER SET 
R1I=PEEK(CC) 
R2=PEEK(CC+1) 
POKE CC,R1 AND 251:REM CHARACTERS READ FROM RAM 
POKE CC+1,(R2 AND 3) OR 48:REM POINT TO CHARACTERS 
REM XARA ARAK RRR RK ERK RIK IK 
FOR N=335 TO 37 
> FOR K=0 TO 7 

READ A 

POKE RA+K+N*8,A 
NEXT 
NEXT 
REM IR I IOI I IK ek 


SCNCLR 
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330 Y=5 

340 CH=33 

350 CHAR,5,Y,"MERCURIAN MUTANT" 
360 PRINT TAB(30)CHRS$(CH) 

370 CH=CH+1:Y=Y+t2 

380 COLOR 1,4,5 

390 CHAR,5,Y,"NEPTUNIAN NASTY" 
400 PRINT TAB(30)CHRS$(CH) 

410 CH=CH+1:Y=Y+2 

420 COLOR 1,6,6 

430 CHAR,5,Y,"SILUSIAN SAUCER" 
440 PRINT TAB(30)CHRS$(CH) 

450 CH=CH+1:Y=Y+t2 

460 COLOR 1,8,5 

470 CHAR,5,Y,"CANNON" 

480 PRINT TAB(30)CHRS$(CH) 

490 CH=CH+1:Y=Yt2 

500 COLOR 1,9,7 

510 CHAR,5,Y,"SHELL" 

520 PRINT TAB(30)CHRS$(CH) 

530 DO 

540 =: GET A$ 

550 LOOP UNTIL A$="" "":REM SPACE BAR STOPS PROGRAM 
560 POKE CC,R1 

570 POKE CC+1,R2 

580 END 


SOD REM KKK KKKKKKKKKEKEKKKKKK KK 
BODO REMARK KAKA KERR KKKEKKKEK 


610 REM 
620 REM 
630 REM Kk OK KK kk 
640 REM 
650 REM 
660 REM 
670 REM 
680 REM 
690 REM kkkkkkkkik 
700 REM 
710 REM 


F220 REM KR KAKRKKKKKKKKKKKKEKKKEKEKEEKKKREKE 


730 REM DATA FOR MACHINE CODE ROUTINE 

FELD REM RR KKK KKKRKKKKKEKKKEEKKEKKEKKKKKKKEEK 

750 REM 

760 DATA 169,0,133,3,133,5,169,48,133,4,169,208 
770 DATA 133,6,160,0,177,5,145,3,200,208,249 
780 DATA 230,4,250,6, 169,216,197 ,6,208 ,239,96 
790 REM 


DATA 


+ + + + 
+ + + + 


OPC] 
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800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
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REM Ak Ok a tok kak 
REM DATA FOR CHARACTER SHAPES 


REM AA RRR I I II ROK IK 

REM 

DATA 56,124,84,124,254,254,170,170 
DATA 66,60,189, 165,255 ,60,36,231 
DATA 0,60,126,171,255,126,36,36 
DATA 24,24,24,24,24,255,255,255 
DATA 0,0,24,24,24,24,0,0 


REN 7 I dk a kk 


Space shapes 
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P41 More shapes 


This program generates some more user defined shapes. It 
also demonstrates how a larger picture may be generated -_ in 
this case a city is built up from a number of city units. 


COMMANDS 


Key in the program and RUN. 
Press the space bar to return to the normal character set. 


10 REM MORE SHAPES 

20 REM xxAaAAKKAKK 

30 REM 

40 POKE 52,47:POKE 56,47:CLR:REM RESERVE RAM 
SO REMAKAKAKAKAKAKKKKKKKAKKKKKKKKEK 

60 MC=12032:REM START OF MACHINE CODE ROUTINE 
70 RA=12288: REM START OF CHARACTER RAM 

80 CC=65298:REM CONTROLS CHARACTER LOCATION 
90 COLOR 0,1:REM BLACK SCREEN 

100 COLOR 1,2:REM WHITE INK 

110 COLOR 4,7,3:REM BLUE BORDER 

120 REMKAKKAKAKAAKKKAKKKKKKKKKKKKKKEK 

130 SCNCLR:PRINT:PRINT 

140 PRINT TAB(18)"WAIT" 

150 RESTORE 

160 FOR N=O TO 33 

170 = READ A:POKE MC+N,A 

180 NEXT:REM LOAD MACHINE CODE ROUTINE 

190 SYS MC2REM TRANSFER CHARACTER SET 

200 R1=PEEK(CC) 

210 R2=PEEK(CC+1) 

220 POKE CC,R1 AND 2512REM CHARACTERS READ FROM RAM 
230 POKE CC+1,(R2 AND 3) OR 48:2REM POINT TO CHARACTERS 
L440 REMAAAKAAKRKAKKKKKKKKKEKKKKKKKK 


250 FOR N=33 TO 38 


260 =: FOR K=0 TO 7 

ak 4G Ra READ A 

280 : POKE RAtK+N*8,A 
290 : NEXT 

300 NEXT 


310 REMAXKAAAAKAKAKKAKKKKKKKKKKKAKKAKE 
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SCNCLR 

Y=3 

CH=33 
CHAR,5,Y,‘'FIGURE” 
PRINT TAB(30)CHRS(CH) 
CH=CH+12 Y=Y+2 

COLOR 1,4,5 
CHAR,5,Y,''MONSTER" 
PRINT TAB(30)CHRS(CH) 
CH=CHt+12 Y=Y+2 

COLOR 1,6,6 
CHARS DY o> Pll 

PRINT TAB(30)CHRS$(CH) 
CH=CH+12 Y=Y¥+2 

COLOR 1,8,5 
CHAR,5,Y,''BOMB" 

PRINT TAB(30)CHRS(CH) 
CH=CH+ 1:2 Y=Y¥+2 

COLOR 1,9,7 
CHAR,5,Y,''GUNSHIP” 
PRINT TAB(30)CHRS(CH) 
CH=CH+12Y=Y+2 

COLOR 1,14,5 
CHAR 3 FY > CITY’ 
C$=CHRS$(38):S$=CHRS( 32) 


More shapes 


DS=CHEtCS$tS$+S$+SH$tSH$+S$+SH$+SS+SS+SS+SHS+SS+CH$t+CHtCS+SS 
DS=DS+SHtSS+S$+SH$+SHSt+SS+SHS+SS+CHt*SH+SHS+SS+S$+SS+SS$ 
ES=C$tCSt+SS$tSStS$+S$+S$+SS+SS+CHtCSt+C$+SStCS+C$+CHtSS 
ES=ESt+SS+S$+SS+S$+SS+SS+CStSS+CH+CH+CH+CS+SS+SStSS 
FS=CS+CS+S$+CStCS+CSt+CS$tC$tCSt+CStCH+CS$+CHtCHt+C$t+C$tSS 
FS=FS+SS+CStCS+CSt+CS$t+CS$t+CSt+C$tC$t+CH+CS+C$t+C$tSS$tCS 
GS=CS$+CSH$t+CS$+C$+CHtCS$tCS$tCS$+CHtC$+CHtCH+C$+CH+CS+C$+SS 
GS=GHS+SH+CHFECH+CHt+CH+CS+CH+CS+CS+CSt+CStCS+CS+CS$+CS 


PRINT: PRINT: PRINT: PRINT 
PRINT TABC(4)D$ 

PRINT TAB(4)D$ 

PRINT TABC4)E$ 

PRINT TABC4)E$ 

PRINT TABC(4)FS 

PRINT TAB(4)G$ 

PRINT TABC4)G$ 

DO 

> GET A$ 

LOOP UNTIL AS="" “ZREM SPACE BAR STOPS PROGRAM 
POKE CC,R1 

POKE CC+1,R2 

END 
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TODO REMKKKKKAKKKKKKKKKKKKKKEKE 
BOO REMKXXAKKKKAKKKKKEKKKKEKEK 


810 REM 

820 REM 

830 REM kkk KKKKKKK 
840 REM 
850 REM 
860 REM 
870 REM 
880 REM 
890 REM KKKKKKKKKK 

900 REM 

910 REM 

QZ REMARK KK AKA KKK KEK KKK KKKEEKEKEKEEKEKE 

930 REM DATA FOR MACHINE CODE ROUTINE 

QLD REM KKK ARK KKKKKEKKKKEKEREKEEEEEKEEKE 

950 REM 

960 DATA 169,0,133,3,133,5,169,48,133,4,169,208 
970 DATA 133,6,160,0,177,5,145,3,200,208,249 
980 DATA 230,4,230,6,169,216,197,6,208,239,96 
990 REM 

1000 REMKKKKKAKKKKKKEKKKKEEKEKEEKKEEKE 

1010 REM DATA FOR CHARACTER SHAPES 

1020 REMAX AKA KRKAKA KKK KEKKKEKEKKEEEKEKEKEKE 

1030 REM 

1040 DATA 28,28,8,127,28,20,20,54 

1050 DATA 31,124,200,248,248,120,60,31 

1060 DATA 60,126,255,254,254,62,30,28 

1070 DATA 60,60,24,60,60,60,60,24 

1080 DATA 24,126,231,219,219,231,126,0 

1090 DATA 255,153, 155,200,209, |297129 7295 


1100 REMAX XKARARA RK KKKKKEKRAEKEKKEKEKEEKE 


DATA 


+ + + & 
+ + & & 


120 
P42 Destroyer 


In this program three user defined characters make up the 
composite shape of a destroyer, which is then moved back and 
forth across the screen under program control. Notice how 
the destroyer is made to reverse direction by overprinting it 
with a mirror image. 


COMMANDS 


Key in the program and RUN. 
Press the space bar to return to the normal character set 


10 REM DESTROYER 

20 REM Kxxxxkeaax 

30 REM 

40 POKE 52,47:POKE 56,47:CLR:REM RESERVE RAM 
SO REMAKKKKKKKKKKKKKKKKKKKKKKKKKK 

60 MC=12032:REM START OF MACHINE CODE ROUTINE 
70 RA=12288:REM START OF CHARACTER RAM 

80 CC=65298:REM CONTROLS CHARACTER LOCATION 
90 COLOR 0,7,4:REM BLUE SCREEN 

100 COLOR 1,1:REM BLACK INK 

110 COLOR 4,1:REM BLACK BORDER 

120 REMKKKKKKKKKKKKKKKKKKKKKKKKKKEK 

130 SCNCLR: PRINT: PRINT 

140 PRINT TABC(18)"WAIT" 

150 RESTORE 

160 FOR N=0 TO 33 

170 =: READ A:POKE MC+N,A 

180 NEXT:REM LOAD MACHINE CODE ROUTINE 

190 SYS MC:REM TRANSFER CHARACTER SET 

200 R1=PEEK(CC) 

210 R2=PEEK(CC+1) 

220 POKE CC,R1 AND 251:REM CHARACTERS READ FROM RAM 
230 POKE CC+1,(R2 AND 3) OR 48:REM POINT TO CHARACTERS 
240 REMKKKKKKKKKKKKKKKKKKKKKKKKKKEK 

250 FOR N=33 TO 38 

260 : FOR K=O TO 7 


270-3 READ A 
280 : POKE RA+K+N*8,A 
290 > NEXT 
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300 
310 
320 
330 
340 
350 
360 
370 
380 
390 


400 : 
410 : 
420 
430 : 
440 : 


450 


Destroyer A 


NEXT 

REM KXKKKKKKKAKKKKKKEKEKKKEKKKKKK 
SCNCLR 

DX=1 

X=0 
C$=CHRS$(33)+CHRS(34)+CHRS(35) 
DS=CHRS$( 38) +CHRS(37)+CHRS( 36) 
S$=CHRS$( 32) +CHRS(32)+CHRS(32) 
DO 
>: IF DX=1 THEN CHAR,X,10,D$ 

IF DX=~1 THEN CHAR,X,10,C$ 

FOR N=0 TO 100: NEXT 

CHAR,X,10,S$ 

X=X+DX 

IF X>35 OR X<1 THEN DX=~-DX 

- GET A$ 

LOOP UNTIL AS="" ":REM SPACE BAR STOPS PROGRAM 
POKE CC,R1 

POKE CC+1,R2 


END 
REM xk ok 


RE IM 2 ke a I II I I ae a ae 


REM 

REM 

REM FR IICK A Ik 
REM * 

REM * 

REM * DATA 
REM * 

REM * 

REM KKKKKKK KKK 

REM 

REM 
REMI I I I I I I I IO 


REM DATA FOR MACHINE CODE ROUTINE 

RENE III II IOI I IOI IC IO 

REM 

DATA 169,0,133,3,133,5,169,48,133,4, 169,208 
DATA 133,6,160,0,177,5,145,3,200,208,249 
DATA 230,4,230,6,169,216,197 ,6,208,239,96 
REM 

REN III OI IOI IOI a i 


REM DATA FOR CHARACTER SHAPES 

REN gO I III I tok 

REM 

DATA 0,0,1,1,19,255,127,63 

DATA 128,128,160,160,241,2469,255,255 


+ + ee 
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770 DATA 0,0,128,128,128,152,255,254 
780 DATA 0,0,128,128,200,255,254,252 
790 DATA 1,1,5,5,143,159,255,255 

800 DATA 0,0,1,1,1,25,255,127 


810 REM AKKAAAKKAKKK KKK KKK 


wy UW 


Destroyer 
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P43 Submarine 


This program is similar to the previous one except that a 
submarine shape is generated and movement across the screen 
is controlled by the cursor control keys. 


COMMANDS 


Key in the program and RUN. 
Press the space bar to return to the normal character set 


10 REM SUBMARINE 

20 REM xxxxxkxxx 

30 REM 

40 POKE 52,47:POKE 56,47:CLR:REM RESERVE RAM 
SO REM KKK KK KKKKKKKKKKKKKKKKKKK KKK 

60 MC=12032:REM START OF MACHINE CODE ROUTINE 
70 RA=12288:REM START OF CHARACTER RAM 

80 CC=65298:REM CONTROLS CHARACTER LOCATION 
90 COLOR O,7,4:REM BLUE SCREEN 

100 COLOR 1,17:REM BLACK INK 

110 COLOR 4,1:REM BLACK BORDER 

120 REM XX KKK KKKKKKKKKKKKKKKKKKKKKEK 

130 SCNCLR:PRINT:PRINT 

140 PRINT TAB(18)"WAIT" 

150 PRINT: PRINT: PRINT 

160 PRINT TAB(6)""CURSOR CONTROL KEYS WILL MOVE" 
170 PRINT TAB(6)"SUBMARINE FROM SIDE TO SIDE" 
180 PRINT TAB(6)"0ON THE SCREEN 

190 RESTORE 

200 FOR N=0 TO 33 

210 = READ A:POKE MC+N,A 

220 NEXT: REM LOAD MACHINE CODE ROUTINE 

230 SYS MC:2REM TRANSFER CHARACTER SET 

240 R1=PEEK(CC) 

250 R2=PEEK(CC+1) 

260 POKE CC,R1 AND 251:2REM CHARACTERS READ FROM RAM 
270 POKE CC+1,(R2 AND 3) OR 48:REM POINT TO CHARACTERS 
280 REM KKK KKKKKKKKKKKKKKKKKKKKKKKK 

290 FOR N=33 TO 38 

300 = FOR K=0 TO 7 

310-2 READ A 
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: POKE RA+K+N*8,A 
> NEXT 
NEXT 
REMAX AAKAKKKKKKKKKKKKKKKKKKKKKKK 
SCNCLR 
F=1 
X=0 
C$=CHR$(33)+CHRS$(34)+CHRS(35) 
DS=CHR$(38)+CHRS$(37)+CHRS( 36) 
S$=CHR$(32)+CHR$(32)+CHRS$( 32) 
DO 
= DX=0 
= IF ASCCA$)=157 THEN DX=-1 
= IF ASCCA$)=29 THEN DX=1 
- IF DX=-1 AND F=1 THEN F=0:DX=0 
- IF DX=1 AND F=0 THEN F=1:DX=0 
= IF X+DX>36 OR X+DX<O THEN DX=0 
= IF DX<>0 THEN CHAR,X,10,S$ 
> X=X+DX 
- IF F=1 THEN CHAR,X,10,D$ 
> IF F=0 THEN CHAR,X,10,C$ 
GETKEY A$ 
Loop UNTIL AS="" “REM SPACE BAR STOPS PROGRAM 
POKE CC,R1 
POKE CC+1,R2 


END 
REM KKK AKAKKKKKKKKKKKKKKKKKK 


REMAAAKKKKKKKKAKKKKK KK KKK 


REM ee er 


+ + + + F 


* 
* 
REM * DATA 
* 
* 


REM Kk kk RK IK 


REM 
REM I I IR I IO Ik dk kk ak 


REM DATA FOR MACHINE CODE ROUTINE 

REM I II I I IRI III I i ae 

REM 

DATA 169,0,133,3,133,5,169,48,133,4,169,208 
DATA 133,6,160,0,177,5,145,3,200,208,249 
DATA 230,4,230,6,169,216,197,6,208,239,96 
REM 
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TOO REM KXKKKKAKKAKKKKKKKKKKKKKKKE 


800 REM DATA FOR CHARACTER SHAPES 

B10 REMAXXXKKKAKKKKAKKKKKKKKKKEKKK 

820 REM 

830: DATA 0,0,0,0,3,127,255,127 

840 DATA: 64,664,112, 1127255725570 ]072>05 
850° DATA ‘0,0,0,0,0,247,255,247 

860 DATA 0,0,0,0,192,254,255,254 

870 DATA 2,2,14,14,255,255,255,255 
880 DATA 0,0,0,0,0,239,255,239 


BOD REM KKKKXKKKKKKKKKKKKKEKK 


attine = 
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P44 Runner 


This program demonstrates how animation may be created by 
printing one shape over another. The runner is two character 
spaces wide and is moved forward one space at a time, giving 
a reasonably continuous motion. 


In this program only two figure positions are used. More 
intermediate positions would give smoother motion. 


COMMANDS 


Key in the program and RUN. 
Press the space bar to return to the normal character set. 


10 REM RUNNER 

20 REM xx*xxxxx 

30 REM 

40 POKE 52,47:POKE 56,47:CLR:REM RESERVE RAM 
SO REM AAKAAKKKAKKKAKKKKKKKAKKEKKKKKE 

60 MC=12032:REM START OF MACHINE CODE ROUTINE 
70 RA=12288:REM START OF CHARACTER RAM 

80 CC=65298:REM CONTROLS CHARACTER LOCATION 
90 COLOR 0,1:REM BLACK SCREEN 

100 COLOR 1,2:REM WHITE INK 

110 COLOR 4,7,3:REM BLUE BORDER 

120 REMAKAKKAKKKKKKAKKKKKKKK KAKA KKK 

130 SCNCLR:PRINT:PRINT 

140 PRINT TAB(18)"WAIT" 

150 RESTORE 

160 FOR N=O0 TO 33 

170 =: READ A:POKE MC+N,A 

180 NEXT:REM LOAD MACHINE CODE ROUTINE 

190 SYS MC: REM TRANSFER CHARACTER SET 

200 R1=PEEK(CC) 

210 R2=PEEK(CC+1) 

220 POKE CC,R1 AND 251:REM CHARACTERS READ FROM RAM 
230 POKE CC+1,(R2 AND 3) OR 48:REM POINT TO CHARACTERS 
240 REMARK AA AAA KKKKHAKKKKKAKKKKKEK 

250 FOR N=33 TO 40 

260 : FOR K=0 TO 7 

200: 2 READ A 
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280 : POKE RA+K+N*8,A 

290 = NEXT 

300 NEXT 

310 REM KKKKKKKKKKKKKKKEKKKKKKKKKKKE 
320 SCNCLR 

330 x=0 
340 DO 

350 =: CHAR,X,10,CHRS(33)+CHRS(34) 
360 : CHAR,X,11,CHRS(35)+CHRS$(36) 
370 =: FOR N=0 TO 100:NEXT 

380 = CHAR,X,10,CHR$(32)+CHRS$(32) 
390 : CHAR,X,11,CHR$(32)+CHRS$(32) 
400 = X=X+t1 

410 = CHAR,X,10,CHRS(37)+CHRS(38) 
420 = CHAR,X,11,CHRS$(39)+CHRS(40) 
430 =: FOR N=0 TO 100:°NEXT 

440 : CHAR,X,10,CHRS$(32)+CHRS(32) 
450 : CHAR,X,11,CHRS$(32)+CHRS(32) 


460 : X=X+t1 

470 : IF X>37 THEN X=0 

480 : GET A$ 

490 LOOP UNTIL AS="" "REM SPACE BAR STOPS PROGRAM 


500 POKE CC,R1 
510 POKE CC+1,R2 
520 END 


530 REMKKKKKKKKKKKKKKKKKKKKKK 
S40 REMKKKKKKKKKKKKKKKKKKKKKK 


550 REM 

560 REM 

570 REM kkk KKK KKK 
580 REM 
590 REM 
600 REM 
610 REM 
620 REM 
630 REM KOK ORK AK be He 

640 REM 

650 REM 

660 REMKKKKKKKKAKKKKKAKKKKKKKKKKKKK KKK 


670 REM DATA FOR MACHINE CODE ROUTINE 

BBO REM 1 Ka I RK RR A I IK I IIR I IO 

690 REM 

700 DATA 169,0,133,3,133,5,169,48,133,4, 169,208 
710 DATA 133,6,160,0,177,5,145,3,200,208,249 
720 DATA 230,4,230,6,169,216,197,6,208,239 ,96 
730 REM 


T40 REMKKKKKKKKKKKKKKKKKKKKKKKKKK 


DATA 


+ + + + F 
+ + + F F 
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750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
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REM DATA FOR CHARACTER SHAPES 
REM 4k ok kk Kk ek ke 
REM 

DATA::0,0,0,0,1,171,0 

DATA 6,14,15,14,248,112,127,240 
DATA 1,15,48,32,32,0,0,0 

DATA 252,4,7,0,0,0,0,0 

DATA 0,0,0,0,0,0,0,1 

DATA 0,0,0,0,6,14,207,238 

DATA 1,0,7,7,118,30,1,1 

DATA 120,240,240,220,0,0,0,192 


REM AKKAKKKKKKKKKKKKEKKKEKR 


Eat Mat Kat HK gt K gt Fat Fat Hat 


Runner 
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P45 Bat’n’moth 


You've heard of bat'n'ball - well here’s bat'n'moth. The bat 
is a composite shape made up from four user def ined 
characters. It may be moved across and up and down the 
screen by the cursor control keys. A Little moth’ flutters 
around the bat, always remaining just out of reach. Notice 
that two moth shapes are used to make the moth flutter. This 
program could be converted into a game by having several 
moths which the bat has to catch within a certain time 


COMMANDS 


Key in the program and RUN. 
Press the space bar to return to the normal character set 


10 REM BAT'N'MOTH 

20 REM xxKwK Kwak 

30 REM 

40 POKE 52,47:POKE 56,47:CLR:REM RESERVE RAM 
50 REM KAKA KKK KAKKKKKKKEKKKKKEKEKKKEEKR 

60 MC=12032:REM START OF MACHINE CODE ROUTINE 
70 RA=12288:REM START OF CHARACTER RAM 

80 CC=65298:REM CONTROLS CHARACTER LOCATION 
90 COLOR O,7,3:REM BLUE SCREEN 

100 COLOR 1,2:REM WHITE INK 

110 COLOR 4,7,3:REM BLUE BORDER 

120 REMAKKAKKKKKEKKKKKKKKKKKKKK KKK 

130 SCNCLR 

140 CHAR,6,4,''THE FOUR CURSOR CONTROL KEYS” 
150 CHAR,6,5,""CONTROL THE BAT, BUT WE BET" 
160 CHAR,6,6,"'YOU CAN'T CATCH THE MOTH." 
170 CHAR,11,16,"PRESS ANY KEY" 

180 GETKEY A$ 

190 SCNCLR 

200 CHAR,18,6,"'WAIT" 

210 RESTORE 

220 FOR N=0 TO 33 

230 = READ A:POKE MC+N,A 

240 NEXT: REM LOAD MACHINE CODE ROUTINE 

250 SYS MC:REM TRANSFER CHARACTER SET 

260 R1=PEEK(CC) 
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R2=PEEK(CC+1) 
POKE CC,R1 AND 251:REM CHARACTERS READ FROM RAM 
POKE CC+1,(R2 AND 3) OR 48:REM POINT TO CHARACTERS 
REM KAKKKAKKKKKKAKKKKKKKKKEKKKKKKK 
FOR N=33 TO 38 
: FOR K=0 TO 7 
READ A 
: POKE RAtK+N*8,A 
> NEXT 


NEXT 
REMAKKKKKKKKKKKK KR KKK kk 


B1S=CHRE(35)+CHRS$ (36) 
B2$=CHR$(37)+CHRS( 38) 
SS=CHRS(32)+CHRS (32) 
DO 
: DxX=0:DY=0: F=0 
IF ASC(A$)=157 THEN DX=-1 
IF ASC(AS)=29 THEN DX=1 
IF ASCCA$)=145 THEN DY=-1 
IF ASCCA$)=17 THEN DY=1 
X+DX>37 OR X+DX<O THEN DX=0 
IF Y+DY>21 OR Y+DY<O THEN DY=O0 
IF DX<>0 OR DY<>0 THEN F=1 
IF F=1 THEN CHAR,X,Y,S%$: CHAR,X,Y+1,S$ 
X=X+DX: Y=Y+#DY 
COLOR 1,1 
CHAR,X,Y,B1$ 
CHAR,X,Y+1,B2$ 
CHAR,M1Z4,M2Z,CHRS$(32) 
DO 
IF RND(1)<.5 THEN SN=1:ELSE SN=-1 
M1Z=X+SN*(4*RND(1)+3) 
IF RND(1)<.5 THEN SN=1:2ELSE SN=-1 
M2Z=Y+SN* (4*RND(1)+3) 
LOOP UNTIL M1Z>0 AND M1Z%<37 AND M2Z>0 AND M2Z%<24 
COLOR 1,2 
CHAR,M1Z,M2Z,CHRS$(33) 
> CHAR,M1Z,M2Z,CHRS$(34) 
> CHAR,M1Z,M2Z,CHRS(34) 
- GET AS 
LOOP UNTIL AS="" "REM SPACE BAR STOPS PROGRAM 
POKE CC,R1 


6 66 66 66 86 66 66 Ga a 
oe 
mn 
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740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 


OPC-J 


Bat'n'moth eel 


POKE CC+1,R2 
END 


REMKKKKKKKK KKK KKK RIK 
REMKKKKKKKKKKKKKK KKK RIK 
REM 

REM 

REM KkkK KKK KKK 

REM * 

REM * 

REM x DATA 
REM * 

REM * 

REM kkk kk kkk RK 

REM 

REM 

MILE ES SSCS SSC Ce Te LS TILT CL Se 2 2 


REM DATA FOR MACHINE CODE ROUTINE 
REM 1k I I IO ITO IO TOR IOI RR tk 
REM 

DATA 169,0,133,3,133,5,169,48,133,4,169,208 
DATA 133,6,160,0,177,5,145,3,200,208,249 
DATA 230,4,230,6,169 ,216,197 ,6,208,239 ,96 
REM 

REM a III ROR ORR RK 
REM DATA FOR CHARACTER SHAPES 
REM II IK TOK I IIR IR II 

REM 

DATA 129,129,195 ,231,255,231,195,129 
DATA 36,102,102,102,126,102, 102,36 

DATA 130,130,129,195,199,195 ,225 ,227 
DATA 65,65,129,195,227,195,135,199 

DATA 231,255,255,239,231,197,137,156 
DATA 231,255,255,247 ,231,163,145 ,57 


REM KKAKAKKKKKKKKKKKKKKK 


+ + + 
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P46 Jimmy 


In this program a machine code routine is read into memory 
and RUN. This routine transfers characters from ROM to RAM 
where their shape may be redefined. The user defined 
characters thus created are used to create the cartoon 
character Jimmy. 


We have included a few Lines in the program to draw Jimmy and 
make him wave. These Lines are merely an example of how 
Jimmy can be drawn and moved. You can generate different 
movements using the shapes given, or expand the program 
further by defining new shapes. 


COMMANDS 


Key in the program and RUN. 

Stop the program by pressing the RUN/STOP and RESTORE keys 
simultaneously. 

Key in your own routines in tines to make Jimmy move. 


10 REM JIMMY 

20 REM *x**x*x 

30 REM 

40 POKE 52,47:POKE 56,47:CLR: REM RESERVE RAM 
50 REMAKAKKAKKEKKKEKKKKKKEKKKKKKKKE 

60 MC=12032:REM START OF MACHINE CODE ROUTINE 
70 RA=12288:REM START OF CHARACTER RAM 

80 CC=65298:REM CONTROLS CHARACTER LOCATION 
90 COLOR O,1:REM BLACK SCREEN 

100 COLOR 1,2:REM WHITE INK 

110 COLOR 4,7,3:REM BLUE BORDER 

120 REM AKKKKKKKKKKKKKEKKKKKKKKKKKK 

130 SCNCLR:PRINT:PRINT 

140 PRINT TAB(18)"WAIT" 

150 RESTORE 

160 FOR N=0 TO 33 

170 : READ A:POKE MC+N,A 

180 NEXT: REM LOAD MACHINE CODE ROUTINE 

190 SYS MC:REM TRANSFER CHARACTER SET 

200 R1=PEEK(CC) 

210 R2=PEEK(CC+1) 


jimmy 


POKE CC,R1 AND 251:REM CHARACTERS READ FROM RAM 
POKE CC+1,(R2 AND 3) OR 48:2REM POINT TO CHARACTERS 


REM He KK KKK IK RR RII RII I 


FOR N=33 TO 47 

> FOR K=0 TO 7 

READ A 

POKE RA+K+N*8,A 

> NEXT 

NEXT 

REM 1k RK IKK IKK IK KK IK IK KK IIR IK 

REM DISPLAY POKE CODES 33 TO 47 

REM (CHR$(33) TO CHRS(47)) ARE NOW 
REM REDEFINED TO GIVE THE SHAPES 
REM WHICH MAKE UP JIMMY. 

REM 5 IK I RR I I TK I TK IR RK I IK ICR 

REM YOU CAN ENTER ANY PROGRAM YOU 
REM WISH IN LINES 550 TO 4500, 

REM USING THE SHAPES TO BUILD THE 
REM CHARACTER. 

REM RHR KKK KKK RK KEKE RE K KEK KK ER 

REM WE HAVE PUT IN A SIMPLE ROUTINE 
REM AS AN EXAMPLE. THIS MAKES JIMMY 
REM WAVE. 


REM XK KEK KKKKKKKKKKEKKKEKKKKKKKKKK 
REM KKRKKKKKKKKEKKKEKEKKEKKKKEKKKKKK 


REM 

REM 

SCNCLR 

CHAR, 15,2,"HELLO JIMMY" 
COLOR 1,12,7:REM PINK 
CHAR, 19,10,CHR$(33):REM 
COLOR 1,11,6:REM GREEN 


HEAD 


CHAR, 18,11,CHR$( 38): REM 
CHAR, 19,11,CHR$(34):REM 
CHAR,20,11,CHR$(36):REM 
CHAR, 18,12,CHR$(39)=REM 
CHAR, 19,12,CHR$(35):REM 
CHAR ,20,12,CHRS$(37):REM 
COLOR 1,5,4:REM PURPLE 
CHAR, 19,13,CHRS(42):REM 
COLOR 1,2=>REM WHITE 
CHAR, 18,13,CHR$(44)=REM 
CHAR, 20,13,CHR$(43)=2REM 


UPPER 
UPPER 
UPPER 
LOWER 
LOWER 
LOWER 


LEGS 


FOOT 
FOOT 


REM& KKK KKK RRR KEK KEKKEK EK 


REM MAKE JIMMY WAVE 
COLOR 1,11,6:REM GREEN 
DO 


ARM 
TRUNK 
ARM 
ARM 
TRUNK 
ARM 
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690 : 


700 


710% 
raed Oe 
750-5 
740 : 
750°; 
760 : 


770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
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CHAR,20,11,CHR$(36)2REM UPPER ARM 
> CHAR,20,12,CHR$(37):REM LOWER ARM 
FOR N=O TO 200:NEXT 
CHAR,20,12,CHR$(32):REM SPACE 
CHAR,20,10,CHR$(40):REM ARM WAVE 
CHAR,20,11,CHR$(41)2REM ARM WAVE 
FOR N=O0 TO 200:NEXT 
CHAR,20,10,CHR$(32):REM SPACE 

GET A$ 


LOOP UNTIL AS=" "“:REM SPACE BAR STOPS PROGRAM 
POKE CC,R1 
POKE CC+1,R2 


END 


REMARK AAR KKKKKKKERKEKKKKKE 
REMKKKAKKAKKKKKKKKEKKKKKKE 
REM 

REM 

REM khhkkkkker 

REM x * 

REM * a 

REM x DATA x 

REM * * 

REM * a 

REM KkKKKKKKKK 

REM 

REM 

REMARK KARA KKAKKKKKRREKKKKKKKEEREKAK 


REM DATA FOR MACHINE CODE ROUTINE 


REM KKK KKKKKKKKKEEKKEKKKKKKEEKKKKKK 


REM 


DATA 169,0,133,3,133,5,169,48,133,4, 169,208 
DATA 133,6,160,0,177,5,145,3,200,208,249 
DATA 230,4,230,6,169,216,197,6,208,239,96 
REM 


REMAX KKKKKKKKKKKKKKKKEKKKKKEKK 


REM DATA FOR CHARACTER SHAPES 
REMARK KAKAKKAKKKKKKKKKEKEEKKIER 

REM 

DATA 24,60,90,126,126,102,62,24 
REM HEAD 

REMARK KKAKKKKKKKKKKEKEKE 

DATA 24,255,255,255,231,126,102,126 
REM UPPER TRUNK 

REMARK KKKKAKKKKKKEKEKKEK 

DATA 102,60,60,60,126,231,231,231 
REM LOWER TRUNK 


REMXKKXKKKKKKKEKEKKKKKK 


jimmy 
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1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1510 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 


DATA 0,128,192,224,112,48,48,48 


REM Xx KKK AEKKKKKKKKKKKEKKEKKE 


REM UPPER LEFT ARM 

REMKK KK RKAKKEAKKEEKK EKER 

DATA 48,48,48,0,0,0,0,0 

REM LOWER LEFT ARM 

REM KKK ERK KERKAKEKKKRAKE 

DATA 0,1,377,14,12,12,12 

REM UPPER RIGHT ARM 

REM KKK KKKKKKEKKKKKKEKKE 

DATA 12,12,12,0,0,0,0,0 

REM LOWER RIGHT ARM 

REM KKK KERR KKKEKKKKKKKKKE 

DATA 0,0,0,48,48,48,48,48 
REM RAISE UPPER LEFT ARM 
REMARK KKKKKKKKKKEKKKEKEK 

DATA 112,240,192,128,0,0,0,0 
REM RAISE LOWER LEFT ARM 
REMKK KK RKAKKAKKKKKKEKKR 

DATA, 25172517251,2519251,2517251,25.1 
REM LEGS AT ATTENTION 
REMKKKKKKK KKK RK KK RK KK 

DATA 0,0,0;0,0,0,192,:92 

REM LEFT FOOT 
REMARK KKK KEAKKEKK KKK AK 

DATA 0,0,0,0,0,0, 35/5 

REM RIGHT FOOT 

REM KR KK RKAKAKKKKKKKK KKK 

DATA 0,0,0,36,60,60,255,255 
REM HAT 

REM KK KKKKKKKKKEKK KKK KKK 

DATA 0,24,60,126,126,60,24,0 
REM BALL 

REM KA KK KKRKARKKKKK KKK KKK 

DATA 60,126,255,126,60,24,24,24 
REM BAT 


REMKKKKKKKKKAKKKKEKEKKKKE 
REM KKK KKKKKKKKKKEKKKKKK 


Bes 
rer” 
* 4 
AL 


&owaY ' oe foe OE. 
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P47 Worm 


In this program pixels are inked in at the front of a 
squiggly shape and deleted behind it. As a result a Little 
worm sLithers across the screen. Multicolor high resolution 
mode is used. 


COMMANDS 


Key in the program and RUN. 
Stop the program by pressing any key. This puts the machine 
back into text mode. 


10 REM WORM 

20 REM xxxx 

30 REM 

40 COLOR 0O,1:REM BLACK SCREEN 

50 COLOR 1,2:REM COLOR 1 WHITE 

60 COLOR 2,16,2:REM COLOR 2 GREEN 

70 COLOR 4,7:REM BLUE BORDER 

80 GRAPHIC 3,1:REM MULTICOLOR HI-RES MODE 


90 DO 

100 : FOR N=0 TO 199 

d fe Ee Baer X=NIIF X>159 THEN X=159 
120 : R=N-40: IF R<O THEN R=0 
130.5 Y=INT(90+10*SIN(X/4)) 
7140: W=INT(90+10*SIN(R/4)) 
150.3 C=2+(N/2=INTCN/2)) 

160 : DRAW C,X,Y 

170:3 DRAW 0O,R,W 

180 : GET A$ 

190 : IF LENCAS)>O THEN N=199:F=1:°ELSE F=0 
200 : NEXT 


210 LOOP UNTIL F=1 

220 GRAPHIC 0,1 

230 REM PRESS ANY KEY TO RETURN TO TEXT MODE 
240 END 
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P48 Colors 


This program is used to exhibit the colors available on the 
Commodore 16. The program first of all asks for your name in 
order to have some text to print out. The text is the printed 
using all the colors available. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM COLORS 
20 REM THIS PROGRAM SHOWS THE RANGE OF 
30 REM COLORS AVAILABLE WITH THE C-16 


50 SCNCLR 

60 CHAR ,10,10,"COLORS" 

70 FOR A=1 TO 200:NEXT A 

80 SCNCLR 

90 CHAR ,2,10,"ENTER YOUR NAME" 

100 INPUT NS 

110 NS=NSt+".0 2" 

120 SCNCLR 

130:-CHAR oS3 204 C0) POO ROSS A-VOAC TOL ACE EE” 

140 PRINT "[CH CD CD CD CD CD CR CR CR CR CR CR CR CR CR CR 
CR CR J"+CHRS(27)+"T"+"[CD CD CD CD CD CR CR CR CR CR CR CR 
CR CR CR CR CR CR CR J"+CHRS$(27)+"B" 

150 REM WE HAVE SET UP A WINDOW TO SHOW 

160 REM TEXT. WE CAN NOW PLAY WITH COLOR 

170 REM AND INTENSITY 

180 B=INTCRND(1)*16+1) 

190 F=INTCRND(1)*16+1) 

200 BR=INTCRND(1)*16+1) 

210 DO 
220 : I1=INT(RND(1)*8) 

230 = I2=INTCRND(1)*8) 

240 : I3=INTCRND(1)*8) 

250° 5) -COLGR: 0,871.1 

260 : COLOR 4,BR,I13 

270 : B=Bt1:IF B=17 THEN B=1 
280 : DO 
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290 


300 : 


310 


320 : 


330 
340 
350 
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: COLOR 1,F,12 

PRINT NS; 

: F=F+1:1F F=17 THEN F=1 
FOR A=1 TO 100:NEXT A 
: LOOP UNTIL F=1 

> BR=BR+1:1F BR=17 THEN BR=1 
LOOP UNTIL 0 


Colors 
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P49 Shading 


This program uses the PLOT command to draw a line by placing 
a series of dots along it. The density of the dots gives a 
measure of the illumination of the Line. 


The points on the Line are calculated by using the formula: 
Y=M*X+C. 


This formula leads to the following rules for calculating M 
and C. 


M=(Y2-Y1)/(X2-X7) 
C=Y¥2-M*X2 


where X1,Y1 and X2,Y2 are two points on the Line. These 
ruLes fall down when the Line is vertical and the program has 
a small adjustment when this situation arises. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM -SHADING 

20 SCNCLR 

30° PRINT ECD.-CD CD CD “CD: CD<CD<CD: J" 

40 PRINT " SHADING" 

50 A=TI 

60 IF TI<A+150 THEN 60 

70 SCNCLR 

80 PRINT''THIS PROGRAM USES THE PLOT COMMAND" 

90 PRINT "TO SHOW THE EFFECT OF ‘SHADING’ A LINE" 
400 PRINT ''THE EFFECT OF SHADING IS ACHIEVED BY " 
110 PRINT "BY PLACING A SERIES OF DOTS ALONG THE " 
120 PRINT “LINE, THE NUMBER OF DOTS CORRESPONDING" 
130 PRINT "TO THE ILLUMINATION OF THE LINE." 
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140 PRINT "THE ILLUMINATION CONSTANT LIES BETWEEN" 
150 PRINT "'.05 AND .9° 

160 PRINT 

170 INPUT “ENTER FIRST POINT X1,71" >X1,7 1 
180 IF X1<O OR X1>319 OR Y1<O OR Y1>199 THEN PRINT "INVALID": 
GOTO 170 

190 INPUT "ENTER SECOND POINT X2,Y2";X2,Y2 
200 IF X2<0 OR X2>319 OR Y2<O OR Y2>199 THEN PRINT "INVALID": 
GOTO 190 

210 INPUT "ENTER ILLUMINATION CONSTANT"; I 
220 IF I<.05 OR 1>.9 THEN PRINT “INVALID":GOTO 210 
230 GRAPHIC 1,1 

240 GOSUB 310 

250 GETKEY AS 

260 GRAPHIC 0,0 

270 END. 

280 REM SHADE LINE SUBROUTINE 

290 REM LINE IS DRAWN FROM X1,Y1 TO X2,Y2 
300 REM WITH ILLUMINATION CONSTANT I 

310 IF X2=X1 THEN GOTO 430 

320 M=(Y2-Y1)/(X2-X1) 

330 C=Y1-M*X1 

340 D=SQR((X1-X2)*2+(Y2-Y1)%2) 

350 N=DeI 

360 DX=(X2-X1)/N 

370 FOR K=1 TON 

380 J=INT(X1+K*DX) 

390 L=INT(M*J+C) 

400 DRAW 1,J,L 

410 NEXT K 

420 RETURN 

430 REM TAKE CARE OF VERTICAL LINES 

440 D=ABS(Y2-Y1) 

450 N=DeI1 

460 IF Y2<Y1 THEN Y2=T: Y2=Y1:Y1=T 

470 DY=(Y2-Y1)/N 

480 FOR K=1 TO N 

490 J=INTCY 14+K*DY) 

500 L=INT(X1) 

510 DRAW ,L,J 

920 NEXT K 

530 RETURN 
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P50 Translation 


To translate, or to move a Line, we must compute the new end 
points of the Line and then draw it. 


If we can move a single Line, then we have the capability of 
moving Line drawings about the screen. 


To move a Line we must Know the end points of the original 
Line and the distance to be moved in both the X and Y 
directions. 


The program uses the shading routine developed earlier to 
redraw the Line. 


(Uy,¥4) 


(X4,¥1) 





COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM -TRANSLATION 

20 SCNCLR 

30 PRINT'[CD CD CD CD CD CD CD CD J" 

40 PRINT " TRANSLATION" 

50 A=TI 

60 IF TI<A+150 THEN 60 

70 SCNCLR 

80 PRINT'THIS PROGRAM INTRODUCES A SIMPLE " 

90 PRINT "FOR CHANGING THE POSITION OF A LINE. IF" 
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100 PRINT "YOU HAVE A ROUTINE FOR MOVING SINGLE" 
110 PRINT "LINES THEN YOU CAN MOVE COMPLETE LINE" 
120 PRINT "DRAWINGS ABOUT THE SCREEN AT YOUR OWN'' 
130 PRINT “CONVENIENCE.[CD CD Cp ]" 

140 PRINT "TO MOVE A LINE WE MUST KNOW ITS ORIGINAL"; 
150 PRINT'POSITION AND THE DISTANCE TO BE MOVED." 
160 PRINT “IN BOTH THE X AND Y DIRECTIONS." 

170 INPUT “ENTER FIRST POINT X1,Y1''3X1,Y1 

180 IF X1<O0 OR X1>319 OR Y1K0 OR Y1>199 THEN PRINT "INVALID": 
GOTO 170 

190 INPUT “ENTER SECOND POINT X2,Y2";X2,Y2 

200 IF X2<0 OR X2>319 OR Y2<0 OR Y2>199 THEN PRINT "INVALID": 
GOTO 190 

210 INPUT “ENTER ILLUMINATION CONSTANT''>1 

220 IF I<.05 OR I>.9 THEN PRINT “INVALID'":GOTO 210 
230 INPUT “ENTER X MOVEMENT’ >K1 

240 INPUT "ENTER Y MOVEMENT *K2 

250 GRAPHIC 1,1 

260 GOSUB 340 

270 GOSUB 620 

280 GETKEY A$ 

290 GRAPHIC 0,0 

300 END 

310 REM SHADE LINE SUBROUTINE 

320 REM LINE IS DRAWN FROM X1,Y1 TO X2,Y2 

330 REM WITH ILLUMINATION CONSTANT I 

340 IF X2=X1 THEN GOTO 460 

350 M=(Y2-Y1)/(X2-X1) 

360 C=¥1-M*X1 

370 D=SQR((X1-X2)*2+(Y2-Y1)%2) 

380 N=D*I 

390 DX=(X2-X1)/N 

400 FOR K=1 TO N 

410 J=INT(X1+K*DX) 

420 L=INT(M*J+C) 

430 DRAW 1,J,L 

440 NEXT K 

450 RETURN 

460 REM TAKE CARE OF VERTICAL LINES 

470 D=ABS(Y2-Y1) 

480 N=D*I 

490 IF Y2<Y1 THEN Y2=T:Y2=Y1:Y1=T 

500 DY=(Y2-Y1)/N 

510 FOR K=1 TO N 

520 J=INTCY1+K*DY) 

530 L=INT(X1) 

540 DRAW 1,L,J 


Translation 


NEXT K 

RETURN 

END 

REM TRANSLATION SUBROUTINE 
REM LINE FROM X1,Y1 TO X2,Y2 IS 
REM MOVED K1 IN X-DIRECTION 
REM AND K2 IN THE Y-DIRECTION 
X1=X 14K 12 Y1=Y14+K2 
X2=X2+K12Y2=Y¥2+K2 

GOSUB 340 

RETURN 
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P51 Parallelogram 


Using the routines developed in the previous programs we can 
shade a parallelogram. 


The parallelogram is drawn by taking a vector (a_ straight 
Line) and moving it to a new position, drawing many 
intermediate lines between the starting and finishing 
vectors. As before we use the shading routine to mimic 
illumination. 





COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM -PARALLELOGRAM 

20 SCNCLR 

$0 PRINT'ECD CD CD CD Cb Cb Cp cp ]" 

40 PRINT " PARALLELOGRAM" 

50 A=TI 

60 IF TI<A+150 THEN 60 

70 SCNCLR 

80 PRINT'THIS PROGRAM USES THE ROUTINES DEVELOPED"; 
90 PRINT “IN THE PREVIOUS PROGRAMS TO SHADE A" 
100 PRINT "PARALLELOGRAM. AS POINTED OUT IN THE " 
110 PRINT “DESCRIPTION, WE CAN NOW SPECIFY" 

120 PRINT "ILLUMINATION IN TWO DIRECTIONS TO '" 
130 PRINT "PRODUCE VARIABLE SHADING.[CD Cp ]'' 
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140 
150 
160 
170 
180 
190 
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PRINT "TO DRAW THE PARALLELOGRAM WE NEED TO KNOW" 
PRINT"THE GENERATING VECTOR POSITION AND THE" 

PRINT "DISTANCE TO BE MOVED IN BOTH THE X AND" 

PRINT "Y DIRECTIONS." 

INPUT “ENTER FIRST POINT X1,Y1";X1,Y1 

IF X1<0 OR X1>319 OR Y1<O OR Y1>199 THEN PRINT “INVALID”: 


GOTO 180 


200 
210 


INPUT “ENTER SECOND POINT X2,Y2";X2,Y2 
IF X2<0 OR X2>319 OR Y2<0 OR Y2>199 THEN PRINT "INVALID": 


GOTO 200 


220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 


INPUT "ENTER X-ILLUMINATION CONSTANT"; 11 
IF 11<.05 OR 11>.9 THEN PRINT "INVALID": GOTO 220 
INPUT "ENTER Y-ILLUMINATION CONSTANT"; 12 
IF 12<.05 OR I2>.9 THEN PRINT "INVALID":GOTO 240 
INPUT “ENTER X MOVEMENT";R1 

INPUT "ENTER Y MOVEMENT" R2 

GRAPHIC 1,1 

GOSUB 670 

GETKEY A$ 

GRAPHIC 0,0 

END 

REM SHADE LINE SUBROUTINE 

IF X2=X1 THEN GOTO 460 
M=(Y2-Y1)/(X2-X1) 

C=Y 1-M*X1 

D=SQR((X1-X2)*2+(Y2-Y¥1)%2) 

N=D«I 

DX=(X2-X1)/N 

FOR K=1 TO N 

J=INT(X14+K*DX) 

L=INT(M*J+C ) 

DRAW 1,J-L 

NEXT K 

RETURN 

REM TAKE CARE OF VERTICAL LINES 
D=ABS(Y2-Y1) 

N=D*] 

IF Y2<Y¥1 THEN Y2=T:Y2=Y1:Y1=T 
DY=(Y2-Y1)/N 

FOR K=1 TO N 

J=INTCY14+K*DY) 

L=INT(X1) 

DRAW 1,L,J 

NEXT K 

RETURN 

END 

REM TRANSLATION SUBROUTINE 
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590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 


Pol 


REM LINE FROM X1,Y1 TO X2,Y2 IS 
REM MOVED K1 IN X-DIRECTION 
REM AND K2 IN THE Y-DIRECTION 
X1=X14K 12 Y 12Y14K2 
X2=X2+K 12 Y2=Y2+K2 

GOSUB 340 

RETURN | 
REM PARALLELOGRAM SHADING ROUTINE 
I=11 

GOSUB 340:REM DRAW VECTOR 
LN=SQR(R1*R1+R2*R2) 

M=LN*12 

DIR=R1/™ 

D2R=R2/™ 

FOR P=1 TO M 

K1=D1R 

K2=D2R 

I=11 

GOSUB 620 

NEXT P 

RETURN 


Parallelogram 
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P52 Shape grabber 


When dealing with Line drawings one needs to know only the 
end points of each Line and the method of drawing the’ Lines. 
The end points of the Lines can be held in a two dimensional 
array, and there are various methods of drawing the Lines. 
In this program the array is set up in such a way that the 
Lines are drawn in order. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM - SHAPE GRABBER 

20 PRINT "{[CS CD CD CD CD CD CD Cbd CD CD J" 

30 PRINT " SHAPE GRABBER" 

40 A=TI 

50 IF TI<A+150 THEN GOTO 50 

60 PRINT "[CS ]" 

70 PRINT "THIS PROGRAM IS USED TO DRAW SHAPES" 

80 PRINT "IN HI RES GRAPHICS. THE SHAPE IS" 

90 PRINT "RECORDED AS AN ARRAY OF POINTS, WHICH" 
100 PRINT "WHEN JOINED TOGETHER FORM A LINE DRAWING"; 
110 PRINT "[CD JNOTE THAT THE ORDER IN WHICH THE POINTS" 
120 PRINT"ARE DRAWN IS IMPORTANT" 

130 PRINT "[CD ]PRESS ANY KEY TO CONTINUE” 

140 GET AS:IF A$=""" THEN GOTO 140 

170 PRINT "[CS ] SHAPE DRAWING ROUTINE" 

180 PRINT "[CD CD JENTER NUMBER OF POINTS IN SHAPE" 
190 INPUT N 

200 DIM S(2,N) 

210 PRINT “ENTER THE COORDINATES OF THE POINTS" 
220 PRINT "IN THE SHAPE" 

230 FOR I=1 TON 

240 PRINT "POINT 'sI>"" X,Y"; 

250 INPUT S(1,1),S(2,1) 

260 NEXT I 


OPC-K 
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270 
280 
290 
300 
310 
320 
330 
340 
550 
360 
370 
380 
390 
400 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
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PRINT "(CS ]THE POINTS ARE:" 

L=1 

FOR I=1 TO N 

PRINT S(1,1),S(2,1) 

L=L+1 

IF L<20 THEN GOTO 360 

PRINT "PRESS ANY KEY TO CONTINUE" 
GET AS:IF A$="""' THEN GOTO 340 
L=0 

NEXT I 

PRINT “PRESS ANY KEY TO SEE DRAWING" 
PRINT "ANOTHER KEY TO RELEASE DRAWING" 
GET AS:IF A$="'"' THEN GOTO 390 
GRAPHIC 1,1 
X=INT(S(1,1))=:Y=INT(S(2,1)) 

DRAW ,X,Y 

FOR I=2 TO N 
X=INT(S(1,1)):Y=INT(S(2,1)) 

DRAW TO X,Y 

NEXT I 
X=INT(S(1,1))2Y=INT(S(2,1)) 

DRAW TO X,Y 

GET AS: IF A$="'"" THEN GOTO 510 
GRAPHIC 0,0 

END 


Shape grabber 
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P53 Rotation 


This program uses the shape grabbing routine to get aé_é user 
defined shape. The shape is then rotated through an angle of 
PI/2 radians, the screen is cleared and the new view is 
shown. 


The program shows the advantage of using arrays to process 
shapes. The rotation problem is reduced to that of matrix 
(array) multiplication. 


COMMANDS 


Key in the program and RUN. 
Enter coordinates when prompted. 
Press any key to rotate figure. 


10 REM PROGRAM - ROTATION 

20) PRINT “LOS CD\-CD-CD CDC D-iCD- CD CD Cb” 

30 PRINT " ROTATION" 

40 A=TI 

50 IF TI<A+150 THEN GOTO 50 

60 PRINT "[CS ]" 

70 PRINT "'THIS PROGRAM FIRST OF ALL ALLOWS THE" 
80 PRINT "'USER TO ENTER A SHAPE, THE SHAPE IS" 
90 PRINT "THEN ROTATED ABOUT THE ORIGIN THROUGH" 
100 PRINT "90 DEGREES. THE ROTATION CAN BE REPEATED"; 
110 PRINT "“[CD JPRESS ANY KEY TO CONTINUE" 

120 GET AS: IF A$=""' THEN GOTO 120 

130 GOSUB 370:REM GET SHAPE 

140 DIM NS(2,N) 

150 GOSUB 250:REM DRAW SHAPE 

160 REM LOOP BACK POSITION 

170 GOSUB 640:REM COMPUTE NEW SHAPE 

180 FOR 1=1 TON 

190 $(1,1)=NS(1,1)2S8(2,1)=NS (2,1) 

200 NEXT I 

210 GOSUB 250:REM DRAW NEW SHAPE 

220 GOTO 170 

230 END 

240 REM SHAPE DRAWING ROUTINE 
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250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
350 
540 
550 
560 
370 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
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GET AS:IF AS=""" THEN GOTO 250 

GRAPHIC 1,1 
X=INT(S(1,1)+159):Y=INTC(S(2,1)+100) 
DRAW 1,X,Y 

FOR I=2 TON 
X=INT(S(1,1) +159): Y=INT(S(€2,1)+100) 
DRAW TO X,Y 

NEXT I 
X=INT(S(1,1) +159): Y=INT(S(€2,1)+100) 
DRAW TO X,Y 

RETURN 

REM SHAPE GRABBING ROUTINE 

PRINT “[csS ] SHAPE GRABBING ROUTINE” 
PRINT "[CD CD JENTER NUMBER OF POINTS IN SHAPE" 


INPUT N 

DIM S(2,N) 

PRINT “ENTER THE COORDINATES OF THE POINTS" 
PRINT "IN THE SHAPE" 

FOR I=1 TO N 

PRINT "POINT "sI;" X,Y" 

INPUT S(1,1),S8(€2,1) 

NEXT I 

PRINT "[CS ]THE POINTS ARE:" 

L=1 

FOR I=1 TON 

PRINT $(1,1),S8(2,1) 

L=L+1 

IF L<20 THEN GOTO 560 

PRINT "PRESS ANY KEY TO CONTINUE" 
GET AS:IF AS=""" THEN GOTO 540 
L=0 


NEXT I 

PRINT "PRESS ANY KEY TO SEE DRAWING" 
PRINT “ANY OTHER KEY TO ROTATE 
GET AS:IF AS="""' THEN 590 
RETURN 

REM ROTATION SUBROUTINE 

REM OLD SHAPE HELD IN S(2,N) 
REM NEW SHAPE HELD IN NS(2,N) 
FOR I=1 TO N 

NS(1,1)=-S(2,1) 

NS(2,1)=S(1,T) 

NEXT I 

RETURN 


Rotation 
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P54 Transformations 


This program uses the shape grabbing routine to allow the 
user to enter a Line drawing, and this is then displayed on 
the screen. 


The user can then use the program to perform. various 
transformations on the Line drawing. 


The program informs the user of the options available. 
COMMANDS 


Key in the program and RUN. 
Follow instructions. 


This program first of all allows the user to enter a _ shape. 
The user then choses which transformation to put the shape 
through. The choices are -: 


I-Identity R-Reflection in y=x 

H-Half turn X-Reflection in x-axis 

Q-Quarter Y-Reflection in y-axis 
turn B-Back quarter turn 


Note that a single letter suffices. 


10 REM PROGRAM - TRANSFORMATIONS 

20 GOSUB 360:REM GET SHAPE 

30 DIM NS(2,N),1(2,2) 

40 REM 

50 REM LOOP BACK POSITION 

60 GET A$ 

70 IF A$S="I"" THEN T(1,1)=1°7(1,2)=0:T(2,1)=0:7(2,2)=1 
80 IF AS$=""R" THEN T(1,1)=0:7(1,2)=1:T(2,1)=1:T(2,2)=0 
90 IF AS="'H" THEN 1T(1,1)=-1:7(1,2)=0:7(2,1)=0:T(2,2)=-1 
100 IF AS="X" THEN 7(1,1)=1:7(1,2)=0: T(2,1)=0:T(2,2)=-1 
110 IF AS="Q" THEN T(1,1)=0:T(1,2)=-1:27(2,1)=1:2T(2,2)=0 
120 IF AS="Y" THEN T(1,1)=-1:701,2)=0: T(2,1)=0:T(2,2)=1 
130 IF AS="B" THEN 17(1,1)=0:T(1,2)=1:T(2,1)=-12T(2,2)=0 
140 A=A$<>"I''ANDA$S<>"'R" ANDAS<>"H"' ANDAS<>''X"ANDAS<>'"'Q" 
ANDAS$<>"'Y "ANDAS<>"'B" 

150 IF A THEN 50 
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160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
210 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
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GOSUB 640:REM COMPUTE NEW SHAPE 

FOR I=1 TON 
$(1,1)=NS(1,1)28(2,1)=NS(2,1) 

NEXT I 

GOSUB 240:REM DRAW NEW SHAPE 

GOTO 50 

END 

REM SHAPE DRAWING ROUTINE 

REM 

GRAPHIC 1,1 

X=INT(S(1,1)+159)2 Y=INT(S(2,1)+100) 
DRAW 1,X,Y 

FOR I=2 TO N 

X=INT(S(1,1)+159)2 Y=INT(S(2,1)+100) 
DRAW TO X,Y 

NEXT I 

X=INT(S(1,1)+159)2 Y=INT(S(2,1)+100) 
DRAW TO X,Y 

RETURN 

REM SHAPE GRABBING ROUTINE 

PRINT "[CS ] SHAPE GRABBING ROUTINE" 
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PRINT "[CD CD JENTER NUMBER OF POINTS IN SHAPE" 


INPUT N 

DIM S(2,N) 

PRINT “ENTER THE COORDINATES OF THE POINTS" 
PRINT "IN THE SHAPE" 

FOR I=1 TON 


PRINT "POINT "313" X,Y"; 

INPUT $(1,1),S8(2,1) 

NEXT I 

PRINT "[CS ]THE POINTS ARE:" 

L=1 

FOR I=1 TON 

PRINT $(1,1),S8(2,1) 

L=L+1 

IF L<20 THEN GOTO 550 

PRINT "PRESS ANY KEY TO CONTINUE" 
GET AS:IF AS$=""" THEN GOTO 530 
L=0 

NEXT I 

PRINT “PRESS ANY KEY TO SEE DRAWING" 


PRINT “ANY OTHER KEY TO ROTATE 
GET AS: IF A$="" THEN 580 
GRAPHIC 1,1 

RETURN 

REM ROTATION SUBROUTINE 

REM OLD SHAPE HELD IN S(2,N) 
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630 REM NEW SHAPE HELD IN NS(2,N) 

640 FOR I=1 TO N 

650 NS(1,1)=10€1,1)48(1,1)4101,2)*5(2,1) 
660 NS(2,1)=T(2,1)*S(1,1)+T(2,2)*8(2,1) 
670 NEXT I 

680 RETURN 
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P55 General transformation 


This program allows the user to enter a shape and then to 
rotate it round the origin. 


COMMANDS 
Key in the program and RUN. 


This program first of all allows the user to enter a shape, 
then to enter the angle of rotation of the transformation to 
be executed. The user then has the opportunity of Repeating 
the rotation (R) or Quitting (Q). The user presses” the 
appropriate key as required. 


10 REM PROGRAM - GENERAL TRANSFORMATION 
20 GOSUB 270:REM GET SHAPE 

30 DIM NSZ(2,N),T2(2,2) 

40 GOSUB 180:REM DRAW SHAPE 

50 REM LOOP BACK POSITION 

60 GETKEY A$ 

70 IF A$="Q"" THEN GOTO 150 

80 IF AS<>"'R" THEN GOTO 50 

90 GOSUB 560:REM COMPUTE NEW SHAPE 
100 FOR I=1 TO N 

110 $Z(1,1)=NSZ(1,1)=$2402,1)=NSZ(2,1) 
120 NEXT I 

130 GOSUB 180:REM DRAW NEW SHAPE 

140 GOTO 50 

150 GRAPHIC 0,0 

160 END 

170 REM SHAPE DRAWING ROUTINE 

180 REM SHAPE HELD IN ARRAY S(2,N) 
190 GRAPHIC 1,1 

200 DRAW 1,8%01,1)+159,8Z%(2,1)+100 
210 FOR I=2 TO N 

220 DRAW TO SZ(1,1)+159,8%(2,1)+100 
230 NEXT I 

240 DRAW TO SZ(1,1)+159,82(2,1)+100 
250 RETURN 

260 REM SHAPE GRABBING ROUTINE 

270 PRINT "[CS ] SHAPE GRABBING ROUTINE" 
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280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
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PRINT "[CD CD JENTER NUMBER OF POINTS IN SHAPE” 
INPUT N 

DIM S%(2,N) 

PRINT "ENTER THE COORDINATES OF THE POINTS" 
PRINT "IN THE SHAPE" 

FOR I=1 TON 

PRINT "POINT ";I:" X,Y"; 

INPUT SZ(1,1),S82(2,1) 


NEXT I 

PRINT “[CS ]THE POINTS ARE:" 
L=1 

FOR I=1 TO N 

PRINT SZ(1,1),82(2,1) 

L=L+1 


IF L<20 THEN GOTO 460 

PRINT "PRESS ANY KEY TO CONTINUE" 
GETKEY A$ 

L=0 

NEXT I 

PRINT "ENTER ROTATION ANGLE CRADIANS)" 
INPUT TH 

PRINT "PRESS ANY KEY TO SEE DRAWING" 
GETKEY A$ 

RETURN 

REM ROTATION SUBROUTINE 

REM OLD SHAPE HELD IN S(2,N) 

REM NEW SHAPE HELD IN NS(2,N) 

REM ANGLE OF ROTATION TH 
S=SINCTH) = C=COS(TH) 

FOR I=1 TON 
NSZ(1,1)=C*SZ01,1)-S*S402,1) 
NSZ(2,1)=S*SZ(1,1) +C*SZ%(2,1) 

NEXT I 

RETURN 
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P56 3D Rotation 


The object of this program is to rotate a two dimensional 
shape in the plane of the screen. 


The shape chosen is a regular polygon. (Note that in the 
Limit the polygon becomes a circle.) 


The polygon is centered at the point X0,Y0,20 and has NS 
sides. 


The program uses the ideas of the rotation program presented 
earlier. 


The polygon has a maximum of 10 sides. When this number of 
sides is chosen, we almost have a circle; so in the Limit the 
routine will form a view of a sphere. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM - 3D ROTATION 

20 PRINT "[CS ]" 

30 PRINT "[CS CD CD CD CD CD J" 

40 DIM SZG5; 10),NSZ(3,10)C(3;,5) 

50 INPUT "ENTER POLYGON RADIUS";R 

60 INPUT “ENTER NUMBER OF SIDES"';N 

70 INPUT “ENTER Y-AXIS ROTATION (DEGS)";B 
80 B=B*[PI ]/180 

90 TH=B 

100 GOSUB 200:REM ROTATION-X MATRIX CALCULATION 
4110 GOSUB 310:REM SHAPE ROUTINE 

120 GRAPHIC 1,1 

130 GOSUB 410:REM DRAW SHAPE 

140 FOR TH=B TO 2*[PI ] STEP B 

150 GOSUB 490:REM CALCULATE NEW VIEW 

160 GOSUB 410:REM DRAW SHAPE 

170 NEXT TH 

180 END 
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REM X-ROTATION MATRIX 
C(1,1)=1 

C€(€1,2)=0 

C€(€1,3)=0 

C€(2,1)=0 
C€(2,2)=COS(TH) 
C€(2,35)=SIN(TH) 
C€(3,1)=0 
C€(3,2)=-SIN(TH) 
C€(3,3)=COS(TH) 
RETURN 

REM SHAPE SUBROUTINE 
DA=2*[PI ]/N 

A=-DA 

FOR I=1 TON 

A=A+DA 
SZC1,1)=RxCOSCA) 
$ZC2,1)=R*SINCA) 
$%(3,1)=0 


NEXT I 

RETURN 

REM DRAW SHAPE ROUTINE 

REM 

DRAW 1,8Z(1,1)+160,82%(2,1)+100 

FOR I=2 TO N 

DRAW TO SZ(1,1)+160,S82%(2,1)+100 
NEXT I 

DRAW TO $Z(1,1)+160,SZ%(2,1)+100 
RETURN 

REM NEW VIEW CALCULATION 

FOR I=1 TON 


NSZ(1,1)=S201,1)*C(1,1)4S2%(2,1)*C(2,1)4S824035,1)*C(3,1) 
NSZ(2,1)=S201,1) *C01,2)4+8%(2,1) *C(2,2)4+8%(3,1)*C (3,2) 
NSZ035,1)=S201,1)*C(01,3)4+S%(02,1)*C(2,3)482(03,1)*C(3,3) 
NEXT I 

FOR J=1 TON 

FOR K=1 TO 3 

SZ(K,J)=NSZ(K, J) 

NEXT K 

NEXT J 

RETURN 
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P57 Perspective 


Most people will remember from school days about perspective. 
The method usually remembered is to Locate a vanishing point. 
ALl parallel Lines should converge to that point. We use a 
slight variation on this idea in this program. 


In this routine we imagine that we have a fixed view point, 
the point (0,0,0) say, and we calculate the projection of the 
three dimensional object on an image plane, Z=K say. We will 
then have a two dimensional representation of the three 
dimensional object which will be in perspective. 


Normally we do not wish to view from the point (0,0,0) and 
with an image plane at Z=K. We will normally have an 
arbitrary view point (VX,VY,VZ) and use the plane Z=0 as the 
image plane. 


The algorithm to find the co-ordinates of an image point is 
then: 


1. Rewrite the co-ordinates of the point with respect to the 
view point. 

2. Calculate the co-ordinates of the projection in the plane 
Z=-VZ. 

3. Rewrite the co-ordinates with respect to the old 
co-ordinates. 

4. Draw the shape with the new co-ordinates. 


This program uses the above routine to implement a 
perspective algorithm. 


COMMANDS 


Key in the program and RUN. 


10 REM PROGRAM - PERSPECTIVE 

20 DIM HZ(10,3),824(10,3),P2( 10,3) 
30 FOR I=1 TO 10 

40 FOR J=1 TO 3 

50 READ HZ(1,J)2:SZC1,J)=HZC I,J) 
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60 NEXT J 

70 NEXT I 

80 REM DATA FOR HOUSE 

90 DATA 0,0,-100,50,0,-100,50,-40,-100,25,-50 
100 DATA -100,0,-40,-100,0,0,-25,50 ,0,-25,50 
110 DATA -40,-25,25,-50 ,-25,0,-40,-25 
120 REM END OF DATA 

130 GOSUB 390:REM DRAW HOUSE 

140 REM LOOP BACK POINT 

150 GETKEY AS 

160 GRAPHIC 0,0 

170 INPUT "VIEW POINT (X,Y,Z)"';VX,VY,VZ 
180 IF VZ=-100 THEN PRINT "'CANNOT SEE SHAPE FROM 
WALL'=GOTO 170 

190 REM PERSPECTIVE ROUTINE 

200 FOR I=1 TO 10 

210 PX=SZ(1,1)-VX 

220 PY=SZ(1,2)-VY 

230 PZ=SZ(1,3)-VZ 

240 R=-VZ/P2Z 

250 QX=R*PX+VX 

260 QY=R*PY+VY 

270 PZCI,1)=QX 

280 PZ(1,2)=QY 

290 PZ(1,3)=0 

300 NEXT I 

310 FOR I=1 TO 10 

320 FOR J=1 TO 3 

330 HA(I,J)=PZ(1,J) 

340 NEXT J 

350 NEXT I 

360 GOSUB 390:REM DRAW HOUSE 

370 GOTO 140 

380 REM DRAW HOUSE 

390 GRAPHIC 1,7 

400 K=1:GOSUB 800 

410 DRAW 1,X,Y 

420 FOR J=2 TO 5 

430 K=J:GOSUB 800 

440 DRAW TO X,Y 

450 NEXT J 

460 K=1:GOSUB 800 

470 DRAW TO X,Y 

480 REM NEXT THE BACK OF THE HOUSE 

490 K=6:GOSUB 800 

500 DRAW 1,X,Y 

510 FOR J=7 TO 10 
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INSIDE 


K=J:GOSUB 800 
DRAW TO X,Y 
NEXT J 
K=6:GOSUB 800 
DRAW TO X,Y 


REM NEXT JOIN THE BACK TO FRONT 


K=6:GOSUB 800 
DRAW 1,X,Y 
K=1:GOSUB 800 
DRAW TO X,Y 
K=10:GOSUB 800 
DRAW 1,X,Y 
K=5:GOSUB 800 
DRAW TO X,Y 
K=9:GOSUB 800 
DRAW 1,X,Y 
K=4:GO0SUB 800 
DRAW TO X,Y 
K=8:GOSUB 800 
DRAW 1,X,Y 
K=3:GOSUB 800 
DRAW TO X,Y 
K=7:GOSUB 800 
DRAW 1,X,Y 
K=2:GOSUB 800 
DRAW TO X,Y 
RETURN 


REM CLIPPING ROUTINE 
X=INTCHZ(K, 1)+160) 
IF X>319 THEN X=319 
IF X<O THEN X=0 
Y=INTCHZA(K,2)+ 100) 
IF Y>199 THEN Y=199 
IF Y<O THEN Y=0 


RETURN 
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P58 Rotating house 


Using the techniques developed in the previous programs, we 
present here a program which shows an object continuously 
rotating about the origin. The object chosen is a_ Line 
drawing of a house. 


COMMANDS 


Key in the program and RUN. 


10 REM PROGRAM - ROTATING HOUSE 

20 DIM HZ(10,3),S82%(10,3) ,PZ%( 10,3) 

30 DEF FNX(K)=HZ(K,1)+140 

40 DEF FNY(K)=HZ(K,2)+100 

50 FOR I=1 TO 10 

60 FOR J=1 TO 3 

70 READ HZCI,J)2SZ01,J)=HZC1,J) 

80 NEXT J 

90 NEXT I 

100 DATA 0,0,-100,50,0,-100,50,-40,-100,25 ,-50 
110 DATA -100,0,-40,-100,0,0,-25,50 ,0,-25,50 
120 DATA =40,7=25, 257-50 7725,0,-60,-25 

130 REM END OF DATA 

140 GOSUB 410:REM DRAW HOUSE 

150 VX=500: VY=-500:VZ=800: REM VIEW POINT 

160 C=COS([ J/10):S=SINC[ 1/10) 

170 REM LOOP BACK POINT 

180 DATA 0,0,-100,50,0,-100,50,-40,-100,25 ,-50 
190 REM PERSPECTIVE ROUTINE 

200 FOR I=1 TO 10 

210 PX=SZ01,1)-VX 

220 PY=SZ(1,2)-VY 

230 PZ=SZ(1,3)-VZ 

240 R=-VZ/PZ 

250 QX=R*PX+VX 

260 QY=R*PY+VY 

270 PZ(1,1)=QX 

280 PZ(1,2)=QY 

290 PZ(1,3)=0 
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NEXT I 

FOR I=1 TO 10 

FOR J=1 TO 3 
HZC1,J)=PZ4(1,J) 

NEXT J 

NEXT I 

GOSUB 410:REM CLEAR DRAW HOUSE 
GOSUB 640 :REM ROTATE HOUSE 
GOTO 170 

END 

READ H(1,J):S(1,J)=H(1,J) 
GRAPHIC 1,1 

DRAW 1,FNX(1),FNYC1) 
FOR J=2 TO 5 

DRAW TO FNX(J),FNYCJ) 
NEXT J 

DRAW TO FNX(1),FNY(1) 
DRAW 1,FNX(6),FNY(6) 
FOR J=7 TO 10 

DRAW TO FNX(J),FNYCJ) 
NEXT J 

DRAW TO FNX(6),FNY(6) 
DRAW 1,FNX(6),FNY(6) 
DRAW TO FNX(1),FNY(1) 
DRAW 1,FNX(10),FNY(10) 
DRAW TO FNX(5),FNY(5) 
DRAW 1,FNX(9),FNY(9) 
DRAW TO FNX(4),FNY(4) 
DRAW 1,FNX(8),FNY(8) 
DRAW TO FNX(3),FNY(3) 
DRAW 1,FNX(€7),FNY(7) 
DRAW TO FNX(2),FNY(2) 
RETURN 

REM ROTATE HOUSE 

FOR I=1 TO 10 
T1=C*S7 C1 1) #S*S201,5) 
T3=-S*SZ01,1)+C*SZ%(1,3) 
S%4(1,1)=T12824(1,3)=T3 
NEXT I 

RETURN 


Rotating house 
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P59 _ Interfering circles 


takes a Little time for this program to finish, but 


think that the effect is quite pretty. 


COMMANDS 


Key in the program and RUN. 


REM THIS PROGRAM USES THE CIRCLE 

REM COMMAND TO CREATE A NICE EFFECT 

A$="C" 

DO WHILE A$<>"'Q" 

GRAPHIC 3,1 

BG=INT(RND(1)*16+1) 

FG=INTCRND(1)*16+1)21F BG=FG THEN 41 
M1=INTCRND(1)*164+1)21F M1=FG OR M1=BG THEN 43 
M2=INTCRND(1)*16+1)21F M2=FG OR M2=BG OR M2=M1 THEN 44 
COLORO,BG: COLOR 1,FG:COLOR 2,M1:COLOR 3,M2 
FOR N=1 TO 40 

FOR C=1 TO 3 

CIRCLE C,50,87,N 

CIRCLE C,80,87,N 

NEXT C 


100 NEXT N 

110 GET AS:IF A$=""" THEN 110 
120 LOOP 

130 GRAPHIC 0 

140 END 


OPC-L 


we 
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P60 Zoom 


One way of zooming in or out of a picture is to redraw 
whole scene to a different size. 


This program draws a cube and allows the user to zoom 
cube into and out of the screen. (Photographers may wish 
reverse our definitions of in and out.) 


COMMANDS 


Key in the program and RUN. 
Press key I to zoom in. 
Press key 0 to zoom out. 


10 REM PROGRAM - ZOOM 

20 SCNCLR 

30 CHAR ,17,13,"Z00M" 

40 A=TI 

50 DO=LOOP UNTIL TI>A+150 

60 GRAPHIC 1,1 

70 S=10:GOSUB 170 

80 GETKEY A$ 

90 IF AS="Q" THEN GRAPHIC 0,0: END 
100 D=-(CAS="I")+(CAS="0") 

110 SCNCLR 

120 S=S+D:GOSUB 170 

130 GOTO 80 

140 END 

150 REM SUBROUTINE TO DRAW CUBE 
160 REM OF SIDE LENGTH S 

170 IF S<O THEN RETURN 

180 DRAW 1,(-S+160),(S+100) 

190 DRAW TO (S+160),(S+100) 

200 DRAW TO (S+160) ,(-S+100) 

210 DRAW TO (1.5*S+160), 100 

220 DRAW TO (1.5*S+160) ,(2*S+100) 
230 DRAW TO (S/1.25-S+160) ,(2*S+100) 
240 DRAW TO (-S+160),(€S+100) 

250 DRAW TO (-S+160),(-S+100) 

260 DRAW TO (S+160),(-S+100) 
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270 DRAW 1,(S+1760),(€S+100) 
280 DRAW TO (1.5*S+160),(2*5+100) 
290 RETURN 
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P61 Interference 


This program generates an interference type pattern. 


Once the pattern has been generated, the user can change the 


colors on the screen by pressing keys. 


COMMANDS 


Key in the program and RUN. 

When pattern has been generated, press 
colors. 

Press @ to quit. 


10 REM THIS PROGRAM USES THE DRAW 

20 REM COMMAND TO CREATE A NICE EFFECT 
30 A$="C" 

40 DO WHILE A$<>''Q" 

50 GRAPHIC 1,1 

60 BG=INTC(RND(1)*16+1) 

70 FG=INTCRND(1)*16+1)21F BG=FG THEN 60 
80 S=INT(RND(1)*4+3) 

90 COLORO,BG:COLOR 1,FG 

100 FOR I=O0 TO 199 STEP S 

110 Y=199-1 

120 DRAW 1,0,1 TO 319,Y 

130 NEXT I 

140 FOR I1=319 TO O STEP -S 

160 NEXT I 

170 GET AS:1F A$="""' THEN 170 

180 LOOP 

190 GRAPHIC 0 

200 COLOR 0,7:COLOR 1,1 

210 END 


any key 


to 


change 
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PG2 Doodle 


This program allows the user to use the cursor control 
to doodle on the C-16 screen. 


Full instructions for the program's use are presented to 
user. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM DOODLE 

20 SCNCLR 

30 CHAR 0,17,13,"DOODLE” 

40 A=TI 

50 DO=LOOP UNTIL TI>A+150 

60 SCNCLR 

70 PRINT=PRINT=PRINT: PRINT 

80 PRINT "THIS PROGRAM ALLOWS THE USER TO DOODLE" 
90 PRINT "ON THE SCREEN USING THE CURSOR KEYS TO" 
100 PRINT "CONTROL A DOT ON THE SCREEN.": PRINT: PRINT 
110 PRINT "THE CURSOR KEYS CAN BE USED TO MOVE " 
120 PRINT "THE DOT OR DRAW WITH THE DOT.":PRINT: PRINT 
130 PRINT “ONCE AN AREA HAS BEEN ENCLOSED IT CAN " 
140 PRINT "BE PAINTED.”:2PRINT:PRINT 

150 PRINT "PRESS D TO DRAW" 

160 PRINT " M TO MOVE" 

170 PRINT " PN TO PAINT IN COLOR N” 

180 PRINT =-PRINT "PRESS ANY KEY TO START" 

190 GETKEY A$ 

200 GRAPHIC 3,1 

210 F=2:X=80: Y=100 

220 DO 

230 GET AS 

240 IF AS="D" THEN F=1 

250 IF AS="M" THEN F=2 

260 IF AS="'P"’ THEN F=3 

270 A=ASC(AS) 

280 X=X+(A=157)-(A=29) 
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Y=Y+(A=145 )-(A=17) 

ON F GOSUB 340,370,420 
LOOP UNTIL A$="Q" 
GRAPHIC 0,0 

END 

REM DRAWING SUBROUTINE, NORMAL DEFAULT 
DRAW TO X,Y 

RETURN 

REM MOVING SUBROUTINE 
LOCATE X,Y 

DRAW (3-RDOT(2)),X,Y 
RETURN 

REM PAINT SUBROUTINE 
GETKEY KS2K=VAL(KS) 

IF K>3 THEN K=3 

PAINT K,,1 

F=2 

RETURN 


Doodle 
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P63 Bar chart 


This program can draw a chart of up to thirty bars on to 
screen. The bars are automatically scaled to fit onto 
screen. The chart is not. labelled. This is left as 
exercise for the reader. 


COMMANDS 


Key 


in the program and RUN. 


Enter the number of bars, less than 30. 
Enter the value of each bar as requested. 


REM PROGRAM - BAR CHART 
SCNCLR 

CHAR ,15,12,"BAR CHART" 
A=TI 


DOZLOOP UNTIL TI>A+150 

SCNCLR: PRINT? PRINT: PRINT 

PRINT "THIS PROGRAM CAN BE USED TO PRESENT DATA"; 
PRINT "IN THE FORM OF A BAR CHART ON THE SCREEN"; 
PRINT "UP TO 30 BARS CAN BE DISPLAYED ON THE" 


PRINT "SCREEN." 

PRINT :PRINT "PRESS ANY KEY TO CONTINUE" 
GETKEY A$ 

PRINT: PRINT 

INPUT "ENTER NUMBER OF BARS":BR 

IF BR>30 THEN GOTO 140 

IF BR<1 THEN GOTO 140 

BR=INT(BR):MX=0 

DIM V(BR) 

PRINT 

PRINT "NOW ENTER YOUR DATA ONE ELEMENT AT A " 
PRINT "TIME." 

FOR I=1 TO BR 

PRINT "ENTER VALUE OF BAR "SI; 

INPUT V(I) 

IF V(I)>MX THEN MX=V(1) 

NEXT I 

INPUT "ENTER TITLE OF CHART';T$ 
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SCNCLR 

SCc=1 

IF MX>20 THEN SC=MX/20 
FOR I=1 TO BR 
VCID=INTOVCI)/SC) 

NEXT I 

REM DRAW SCALES 

FOR I1=0 TO 19 

CHAR 1,5,1,CHRS(98) 
NEXT I 

CHAR 1,5,20,CHR$( 123) 
FOR 1=6 TO 39 

CHAR 1,1,20,CHR$(99) 
NEXT I 

REM LABEL BAR CHART 
L=LEN(TS) 

CHAR 1,1NT((40-L)/2),2,TS 
FOR I1=1 TO 20 STEP 2 
T=INTCI*SC+.5)+INTCSC) 
TPS=MIDS(STRS(T),2) 
CHAR 1,0,20-1,TPS 

NEXT I 

REM NOW PLOT THE BARS 
CL=1 

FOR I=1 TO BR 
CL=CL+1:1F CL=16 THEN CL=1 
FOR J=0 TO V(I)-1 
COLOR. 1.,CL 

CHAR 1,7+1,19-J,CHRS(166) 
NEXT J 

NEXT I 

GETKEY AS 


Bar chart 
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PG4 Mean and standard deviation 


This program is used to find the mean and standard deviation 
of a List of data items. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 7 


10 REM PROGRAM - MEAN AND STANDARD DEVIATION 
20 SCNCLR: PRINT 

30 PRINT " MEAN AND STANDARD DEVIATION" 

40 PRINT:PRINT "THIS PROGRAM CAN BE USED TO FIND THE” 
S50 PRINT "MEAN AND STANDARD DEVIATION OF A SERIES" 
60 PRINT "OF NUMERICAL VALUES. THIS PROGRAM CAN BE"; 
70 PRINT "OF GREAT USE IN THE LABORATORY." 

80 PRINT 

90 PRINT "THE PROGRAM ASKS YOU TO FIRST OF ALL TO” 
100 PRINT "PRINT THE TITLE OF THE REPORT TO BE ” 

110 PRINT "WRITTEN, THEN THE NUMERICAL READINGS” 

120 PRINT "ARE ENTERED ONE AT A TIME. THE PROGRAM" 
130 PRINT "THEN PRINTS A REPORT OF THE DATA." 

140 PRINT 

150 PRINT "PRESS ANY KEY TO CONTINUE” 

160 GETKEY AS 

170 SCNCLR 3 

180 PRINT "WHAT IS THE TITLE OF THE" 

190 INPUT "REPORT";TS 

200 PRINT 

210 INPUT "HOW MANY DATA ITEMS ARE THERE";N 

220 DIM D(N):S=0:D=0 

230 PRINT 

240 PRINT "PLEASE ENTER THE DATA ONE ITEM AT A TIME” 
250 FOR I=1 TO N 

260 INPUT "NEXT ITEM';:D(1):S=S+D(I) 

270 NEXT 

280 M=S/N 

290 PRINT "CALCULATING."; 

300 REM NOW DO THE CALCULATIONS 

310 FOR I=1 TON 
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PRINT "."'; 

D=D+(D(I)-M)“*2 

NEXT I 

VR=SQR(D/(N-1)) 

SCNCLR 

PRINT "' aS 
PRINT 

PRINT 

PRINT “THERE WERE ";N;"" DATA ITEMS." 
PRINT 

PRINT "THE DATA ARE" 

PRINT 

FOR I=1 TO N 

PRINT DCL) se os 

NEXT I 

PRINT =PRINT:PRINT 

PRINT "THE MEAN IS"? 

PRINT USING "###### .##'' <M 
PRINT “THE STANDARD DEVIATION IS"> 
PRINT USING "“###### .##'' SVR 
END 
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P65 Bubble sort 


This program is demonstration of how the classical Bubble 
Sort works. The program sorts ten numbers on the screen. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM - BUBBLE SORT 
20 DIM K(10):C=0:S=0 
30 PRINT “[CS CD CD CD CD CD CD CD CD Cp cp J" 


40 PRINT " BUBBLE SORT" 
50 A=TI 

60 IF TI<A+100 THEN GOTO 60 

70 SCNCLR 


80 PRINT "[CD CD JTHIS PROGRAM EXHIBITS A SORTING ROUTINE" 
90 PRINT "ON THE SCREEN." 

100 PRINT: PRINT 

110 PRINT "'THE ROUTINE IS KNOWN AS THE BUBBLE SORT" 
120 PRINT:PRINT:PRINT “PRESS ANY KEY TO CONTINUE" 
130 GET AS: IF AS="" THEN GOTO 130 

140 PRINT "[CS ]" 

150 PRINT “THE PROGRAM SHOWS HOW THE COMPUTER" 

160 PRINT ‘COMPARES AND SWAPS ITEMS IN A LIST OF" 
170 PRINT ‘‘NUMBERS, IN ORDER TO OBTAIN A SORTED” 
180 PRINT “LIST.” 

190 PRINT 

200 PRINT ‘NUMBERS BEING COMPARED ARE SHOWN IN" 

210 PRINT "RED, NUMBERS BEING SWAPPED ARE SHOWN" 
220 PRINT "IN YELLOW." 

230 PRINT: PRINT:PRINT "PRESS ANY KEY TO CONTINUE" 
240 GET AS:IF A$="""' THEN GOTO 240 

250 PRINT "[CU CU JTHE PROGRAM ALLOWS THE USER TO ENTER” 
260 PRINT "THE SPEED OF PROCESSING, IN THE RANGE" 
270 PRINT "[CD ]1 TO 10, WITH 10 BEING FAST." 

280 PRINT "THE PROGRAM PROMPTS THE USER TO ENTER"' 
290 PRINT "10 NUMBERS." 
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PRINT: PRINT 
PRINT "FOR THE PURPOSES OF THIS DEMONSTRATION" 
PRINT"ENSURE THAT ALL NUMBERS ENTERED HAVE" 

PRINT "THE SAME NUMBER OF DIGITS." 

PRINT:PRINT:PRINT "PRESS ANY KEY TO CONTINUE" 

GET AS:IF AS=""' THEN GOTO 350 

PRINT "[CS ]" 

INPUT'SPEED OF PROCESSING";S 

IF S>10 THEN S=10 

IF S<1 THEN S=1 

S=INT(11-S) «50 

PRINT 

PRINT "ENTER NUMBERS TO BE SORTED ONE AT A TIME" 

INPUT "NUMBER";K(1) 

L=LEN(STRS(K(1))) 

FOR I1=2 TO 10 

INPUT "NUMBER" :K(1) 

IF LEN(STRS(K(1)))<>L THEN PRINT "PLEASE RE-ENTER":GOTO 


NEXT I 
GET AS: IF A$<>''" THEN 490:REM FLUSH BUFFER 
PRINT "{CS RON ] BUBBLE SORT 


[ROF J" 


510 


PRINT "[CD CD CD CD CD CD CD CD CD CD CD CD CD CD Cb CD 


CD CD CD RON ] [ROF 


FOR I=1 TO 10 
CHAR 1,20,C1+5),STRS(K(I1)) 

NEXT I 

PRINT "'[CH CD CD ]COMPARISONS= SWAPS="'> 
REM SORTING ROUTINE 

FOR I=1 TO 9 

FOR K=I+1 TO 10 

HU=3:GOSUB 690 

C=C+1 

PRINT "[CH CD CD CR CR CR CR CR CR CR CR CR CR CR CR J''C; 
FOR Z=1 TO S:NEXT Z:REM DELAY 

IF K(K)>K(I) THEN GOSUB 750 
HU=1:GOSUB 690 

NEXT K 

NEXT I 

END 

REM SUBROUTINE TO COLOR TWO ITEMS 
COLOR 1,HU,6 

CHAR 1,20,1+5,STRS(K(I)) 

CHAR 1,20,K+5,STRS(K(K)) 

COLOR 1,1 
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730 RETURN 

740 REM SWAP SUBROUTINE 

750 SW=SW+1 

760 HU=8:GOSUB 690 

770 T=K(K) 

780 K(K)=K(T) 

790 KCI)=T 

800 HU=8:GOSUB 690 

810 FOR Z=1 TO S:NEXT Z 

820 HU=1:GOSUB 690 

830 PRINT "[CH CD CD CR CR CR CR CR CR CR CR CR CR CR CR CR 
CR CR CR CR CR CR CR CR CR CR CR CR CR CR CR CR CR CR CR CR 
CR ]"SW; 

840 RETURN 


176 


P66 Shell sort 


This is the classical fast Shell Sort routine. As with the 
Bubble sort, the sorting is carried out on the_= screen. rt 
can be a very useful exercise to try and figure out why the 
Shell routine works. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM - SHELL SORT 
20 DIM K(10):C=0: SW=0 
50: PRINT [CS CDCD CD -CD.CD- CD. CD Cb.Cd-CD | 


40 PRINT " SHELL SORT" 
50 A=TI 

60 IF TI<A+100 THEN GOTO 60 

70 SCNCLR 


80 PRINT "[CD CD JTHIS PROGRAM EXHIBITS A SORTING ROUTINE" 
90 PRINT "ON THE SCREEN.” 

100 PRINT: PRINT 

110 PRINT ''THE ROUTINE IS KNOWN AS THE SHELL SORT" 
120 PRINT:PRINT:PRINT "PRESS ANY KEY TO CONTINUE" 
130 GETKEY A$ 

140 PRINT "[CS ]}" 

150 PRINT "THE PROGRAM SHOWS HOW THE COMPUTER" 

160 PRINT "COMPARES AND SWAPS ITEMS IN A LIST OF" 
170 PRINT "NUMBERS, IN ORDER TO OBTAIN A SORTED" 
TOO PRINT. List... 

190 PRINT 

200 PRINT ''NUMBERS BEING COMPARED ARE SHOWN IN" 
210 PRINT "RED, NUMBERS BEING SWAPPED ARE SHOWN" 
220 PRINT “IN YELLOW." 

230 PRINT:PRINT=PRINT "PRESS ANY KEY TO CONTINUE” 
240 GETKEY A$ 

250 PRINT "[CU CU JTHE PROGRAM ALLOWS THE USER TO ENTER” 
260 PRINT "'THE SPEED OF PROCESSING, IN THE RANGE" 
270 PRINT "[CD ]1 TO 10, WITH 10 BEING FAST." 

280 PRINT "THE PROGRAM PROMPTS THE USER TO ENTER" 
290 PRINT ''10 NUMBERS." 
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300 PRINT: PRINT 

310 PRINT "FOR THE PURPOSES OF THIS DEMONSTRATION" 
320 PRINT'ENSURE THAT ALL NUMBERS ENTERED HAVE" 

330 PRINT "THE SAME NUMBER OF DIGITS." 

340 PRINT: PRINT:PRINT "PRESS ANY KEY TO CONTINUE" 
350 GETKEY AS 

360 PRINT "[CS ]" 

370 INPUT'SPEED OF PROCESSING";S 

380 IF S>10 THEN S=10 

390 IF S<1 THEN S=1 

400 S=INT(11-S)*50 

410 PRINT 

420 PRINT "ENTER NUMBERS TO BE SORTED ONE AT A TIME" 
430 INPUT "NUMBER'';K(1) 

440 L=LEN(STRS(K(1))) 

450 FOR I=2 TO 10 

460 INPUT "NUMBER" ;K(I) 

470 IF LEN(STRS(K(1)))<>L THEN PRINT “PLEASE RE-ENTER": GOTO 


460 

480 NEXT I 

490 GET AS:IF AS<>"" THEN 490:REM FLUSH BUFFER 

500 PRINT "[CS RON ] SHELL SORT 

[ROF ]" 

510 PRINT "[CD CD CD CD CD CD CD CD CD CD CD CD CD CD Cp cp 
CD CD CD RON J [ ROF 
ieee 


520 FOR I=1 TO 10 

530 CHAR 1,20,1+5,STRS(KC1)) 

540 NEXT I 

550 PRINT "[CH CD CD JCOMPARISONS= SWAPS="'; 
560 REM SORTING ROUTINE 

570 D=4 

580 FOR I1=D+1 TO 10 

590 FOR K=I-D TO 1 STEP -D 

600 C=C+1:PRINT "[CH CD CD CR CR CR CR CR CR CR CR CR CR CR 
CR. 

610 P=K+D:HU=3:GOSUB 710 

620 FOR Z=1 TO S:NEXT Z:2REM DELAY 
630 IF K(K)>KC(P) THEN GOSUB 770 

640 HU=1:GOSUB 710 

650 NEXT K 

660 NEXT I 

670 D=INT(D/2) 

680 IF D<>O THEN GOTO 580 

690 END 

700 REM SUBROUTINE TO COLOR TWO ITEMS 
710 COLOR 1,HU,6 
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720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 


860 


CHAR 1,20,P+5,STRS(K(P)) 
CHAR 1,20,K+5,STRS(K(K)) 
COLOR 1,1 

RETURN 

REM SWAP SUBROUTINE 
SW=SW+1 

HU=8:GOSUB 710 

T=K(K) 

K(K)=K(P) 

KCP )=T 

HU=8:GOSUB 710 

FOR Z=1 TO S:NEXT Z 
HU=1:GOSUB 710 
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PRINT "[CH CD CD CR CR CR CR CR CR CR CR CR CR CR CR CR 
CR CR CR CR CR CR CR CR CR CR CR CR CR CR CR CR CR CR CR CR 
CR J"SW; 


RETURN 


179 
P67 Merge 


A common need in data processing is the ability to merge two 
sorted files to produce a third sorted file. 


It is quicker to sort small files and then to merge the files 
to form Larger ones. In this program, we mimic file handling 
by using arrays. The array elements are entered via_ the 
keyboard but the program could be amended to allow the 
elements to be entered via tape files. 


COMMANDS 


Key in the program and RUN. 
Enter the array elements when prompted in increasing order. 


10 REM PROGRAM - MERGE 
20 PRINT “[CS.CD Cbd CD. CD Cb CD Cb cp )" 

30 PRINT " MERGE" 

40 A=TI 

50 IF TI<A+100 THEN GOTO 50 

60 PRINT "[CS ]}" 

70 PRINT "THE BASIS OF MANY DISK BASED SORT" 

80 PRINT "ROUTINES IS THE CAPABILITY OF MERGING" 
90 PRINT "TOGETHER TWO LISTS SORTED PREVIOUSLY." 
100 PRINT "THE DISK BASED SORT ROUTINE RECOGNISES" 
110 PRINT "THAT IT MIGHT BE IMPOSSIBLE TO READ A " 
120 PRINT "WHOLE FILE INTO MEMORY FOR SORTING" 

130 PRINT "WITH EITHER A BUBBLE OR SHELL SORT" 

140 PRINT:PRINT 

150 PRINT "PRESS ANY KEY TO CONTINUE" 

160 GET AS:IF AS='"'"' THEN GOTO 160 

170 PRINT"[CU ]"; 

180 PRINT "THE FILE IS THEREFORE SPLIT INTO A" 

190 PRINT "SERIES OF SUBFILES, SMALL ENOUGH TO READ"; 
200 PRINT "INTO MEMORY FOR SORTING." 

210 PRINT 

220 PRINT "THE SMALL SORTED SUBFILES ARE THEN "' 
230 PRINT "MERGED TO PRODUCE THE COMPLETELY “ 

240 PRINT "SORTED FILE.":PRINT 

250 PRINT "PRESS ANY KEY TO CONTINUE" 

260 GET ASIF AS="'""’ THEN GOTO 260 
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180 P67 Merge 


270 PRINT "[CS J's PRINT: PRINT 

280 PRINT 

290 PRINT "THIS PROGRAM DEMONSTRATES A MERGE" 

300 PRINT "ROUTINE, BY MERGING TOGETHER TWO LISTS" 

310 PRINT ''OF NUMBERS EACH HOLDING UP TO 100 ITEMS" 
320 PRINT: PRINT 

330 PRINT "PRESS ANY KEY TO CONTINUE” 

340 GET AS:IF AS=''""' THEN GOTO 340 

350 DIM F(100),S(100) ,M( 200) 

360 PRINT "[CS ]"=: PRINT: PRINT 

370 PRINT "ENTER THE FIRST LIST ONE ITEM AT A TIME" 
380 PRINT:PRINT "MAKE SURE THAT THE DATA ITEMS ARE IN" 
390 PRINT "INCREASING ORDER.'': PRINT 

400 PRINT "USE THE VALUE O TO TERMINATE THE LIST" 

410 PRINT 

420 PRINT ''PRESS ANY KEY TO CONTINUE” 

430 GET AS:IF AS=""" THEN GOTO 430 

440 I=1 

450 PRINT "ENTER ELEMENT OF FIRST LIST'';: INPUT FCI) 
460 I=I+1 

470 PRINT "ENTER ELEMENT OF FIRST LIST'';2 INPUT FCI) 
480 IF FCI)<>O AND NOTCFCI)<FC(I-1)) AND I<101 THEN GOTO 460 
490 IF F(I)=0 THEN GOTO 510 

500 IF FCI)<FCI-1) THEN PRINT "OUT OF ORER'':GOTO 470 
510 I=I-1 

520 PRINT "FIRST LIST COMPLETE, THERE ARE "I" ITEMS IN THE 
EIST - 

530 Ni=I 

540 PRINT: PRINT:PRINT 

550 PRINT "PRESS ANY KEY TO CONTINUE” 

560 GET A$: IF AS=''" THEN GOTO 560 

570 I=1 

580 PRINT "ENTER ELEMENT OF SECOND LIST" ;: INPUT S(T) 
590 I=It+1 

600 PRINT "ENTER ELEMENT OF SECOND LIST'';: INPUT S(I) 
610 IF S(I)<>0 AND NOT(S(1I)<SCI-1)) AND I<101 THEN GOTO 590 
620 IF S(I)=0 THEN GOTO 640 

630 IF SCI)<SCI-1) THEN PRINT "OUT OF ORER'': GOTO 600 
640 I=I-1 

650 PRINT "FIRST LIST COMPLETE, THERE ARE "I" ITEMS IN THE 
ETSI 

660 N2=I 

670 PRINT: PRINT:PRINT 

680 PRINT ''PRESS ANY KEY TO CONTINUE" 

690 GET AS:IF A$=""' THEN GOTO 690 

700 PRINT "'[csS ]" 

710 I=12J=1 


POT 


720 
730 
740 
750 
760 
770 
780 
NUMB 


920 
NUMB 
930 
940 


1000 
1010 
1020 
1030 
ELEM 
1040 
1050 
1060 
1070 
1080 
1090 
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PRINT "[CH CD CD CD ]JFIRST LIST ELEMENT NUMBER "'; 

PRINT I 

PRINT "VALUE ";F(I) 

PRINT "[CH CD CD CD CD CD CD JSECOND LIST ELEMENT NUMBER 


PRINT J 

PRINT "VALUE "S(J) 

PRINT [CH CD CD CD CD CD CD CD CD CD JMERGE LIST ELEMENT 
ER: 

PRINT I+J-1 

PRINT ‘VALUE "; 

IF FCI)<S(J) THEN MCIt+J-1)=FCI)SPRINT M(I+J-1)2 1=1+1: GOTO 


IF NOTCF(I)<S(J)) THEN MC I+J-1)=SCJ)2PRINTM(I+J-1)2 J=J+1 
IF I=N1+1 THEN GOTO 860 

IF J=N2+1 THEN GOTO 980 

GOSUB 2000 

GOTO 720 

REM RUNOUT J LIST 

FOR K=J TO N2 

GOSUB 2000 

M(K+I-1)=S(K) 

PRINT [CH CD CD CD CD CD CD JSECOND LIST ELEMENT NUMBER 


PRINT K 

PRINT “VALUE "'S(K) 

PRINT "'[CH CD CD CD CD CD CD CD CD CD JMERGE LIST ELEMENT 
ER: 

PRINT I+K-1 

PRINT "VALUE "M(I+K-1) 
NEXT K 
GOTO 1070 
REM RUNOUT I 

FOR K=I TO N1 
GOSUB 2000 
M(K+J-1) =F (K) 

PRINT "[CH CD CD CD JFIRST LIST ELEMENT NUMBER "; 
PRINT K 

PRINT "VALUE "“F(K) 

PRINT "[CH CD CD CD CD CD CD CD CD CD JMERGE LIST 
ENT NUMBER "'; 

PRINT J+K~-1 

PRINT "VALUE "M(J+K-1) 

NEXT K 

INPUT "DISPLAY RESULT (Y/N)";R$ 

IF R$S=""N" THEN STOP 

PRINT "[CS ]" 
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1100 PRINT "FIRST LIST SECOND LIST MERGED LIST" 

1110 FOR I=1 TO N1+N2 

1120 PRINT F(I)ZTAB(14)7S(1);TABC(28) MCI) 

1130 NEXT I 

1140 END 

1990 REM DELAY SUBROUTINE 

2000" PRINT “CH CD. CD CD: CD Cb CD CD CD CD CD. CDC CD CD Cp 
CD CD JPRESS ANY KEY FOR NEXT ITEM" 
2100 GET A$: 1F AS="'' THEN GOTO 2100 
2110 PRINT "[CU J 

2120 RETURN 
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P68 Permutations 


This program can be used to find the number of permutations 
of n objects taken r at ae time. This is a very useful 
routine in statistics. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM - PERMUTATIONS 

20 PRINT “ECS:4D: CD CD. CD Cb..Cp.CD CD. I 

30 PRINT " PERMUTATIONS” 

40 A=TI 

50 IF TI<A+100 THEN GOTO 50 

60 PRINT "[CS ]" 

70 PRINT "THIS PROGRAM CAN BE USED TO FIND THE "' 
80 PRINT "NUMBER OF PERMUTATIONS OF N OBJECTS," 
90 PRINT''TAKEN R AT A TIME." 

100 PRINT 

110 PRINT "FOR EXAMPLE, SUPPOSE THAT THERE ARE 4" 
120 PRINT "PEOPLE IN A RACE, THEN HOW MANY WAYS" 
130 PRINT ''CAN THE FIRST 3 POSITIONS BE FILLED?" 
140 PRINT 

150 PRINT ''SUPPOSE THE RACERS ARE CALLED A,B,C AND" 
160 PRINT "D, THEN POSSIBLE FINISHING POSITIONS" 
170 PRINT "WOULD BE AS FOLLOWS:" 

180 PRINT 

190 PRINT'ABC ABD ACB ACD ADB ADC" 

200 PRINT "BAC BAD BCA BCD BDA BDC" 

210 PRINT "CAB CAD CBA CBD CDA CDB" 

220 PRINT "DAB DAC DBA DBC DCA DCB" 

230 PRINT 

240 PRINT "IN THIS EXAMPLE THERE ARE 24 WAYS OF" 
250 PRINT “PLACING THE FIRST 3 IN THE RACE." 

260 PRINT: PRINT 

270 PRINT "PRESS ANY KEY TO CONTINUE" 

280 GET A$:IF A$="""" THEN GOTO 280 

290 PRINT"[CS ]" 

300 PRINT "THIS PROGRAM WILL ALLOW THE USER TO" 
310 PRINT ''CALCULATE THE NUMBER OF PERMUTATIONS" 
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PRINT=PRINT 

PRINT "PRESS ANY KEY TO CONTINUE" 

GET AS: IF A$="" THEN GOTO 340 

PRINT: PRINT 

PRINT "HOW MANY OBJECTS ARE TO BE SELECTED" 
INPUT "FROM" ;0B 

PRINT 

PRINT “HOW MANY OBJECTS ARE TO BE SELECTED'';: INPUT SE 
PERMS=1:N=0B 

FOR I=1 TO SE 

PERMS=PERMS<N 

N=N-1 

IF N=0 THEN GOTO 460 

IF (10%38)/N<PERMS THEN PRINT "TOO BIG": STOP 
NEXT I 

PRINT: PRINT 

PRINT “THE NUMBER OF WAYS OF SELECTING "'>SE 
PRINT “OBJECTS FROM ";0B;" OBJECTS IS" 

PRINT PERMS 

END 
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P69 Combinations 


This program finds the number of combinations of n objects 
taken r at a time. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM - COMBINATIONS 

20 PRINT. “[CS CD CD CD: CD Cb CD Cb CD J” 

30 PRINT " COMBINATIONS" 

40 A=TI 

50 IF TI<A+100 THEN GOTO 50 

60 PRINT "[CS ]" 

70 PRINT “THIS PROGRAM CAN BE USED TO FIND THE " 
80 PRINT "NUMBER OF COMBINATIONS OF N OBJECTS," 
90 PRINT'TAKEN R AT A TIME." 

100 PRINT 

110 PRINT "FOR EXAMPLE, SUPPOSE THAT WE WISH TO " 
120 PRINT "MAKE UP A COMMITTEE OF 3 PEOPLE OUT " 
130 PRINT "OF A POSSIBLE OF 4 PEOPLE. HOW MANY “ 
140 PRINT "CAN THIS BE DONE” 

150 PRINT "SUPPOSE THE PEOPLE ARE CALLED A,B,C AND" 
160 PRINT "SUPPOSE THE PEOPLE ARE CALLED A,B,C AND" 
170 PRINT "D, THEN POSSIBLE COMMITTEES WOULD BE" 
180 PRINT "AS FOLLOWS:" 

190 PRINT 

200 PRINT"ABC ABD ACD BCD" 

210 PRINT 

220 PRINT "IN THIS EXAMPLE THERE ARE 4 WAYS OF" 
230 PRINT "MAKING UP THE COMMITTEE." 

240 PRINT-PRINT 

250 PRINT "PRESS ANY KEY TO CONTINUE” 

260 GET AS: IF A$="" THEN GOTO 260 

270 PRINT"[CS J" 

280 PRINT "THIS PROGRAM WILL ALLOW THE USER TO" 
290 PRINT "CALCULATE THE NUMBER OF PERMUTATIONS” 
300 PRINT:PRINT 

310 PRINT "PRESS ANY KEY TO CONTINUE” 

320 GET AS$:IF A$=""" THEN GOTO 320 


490 
500 
510 
970 
980 
990 
1000 
1010 
1020 
STOP 
1030 
1040 
1050 
1060 
1070 
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PRINT: PRINT 
PRINT "HOW MANY OBJECTS ARE TO BE SELECTED” 
INPUT "FROM";0B 
PRINT 
PRINT "HOW MANY OBJECTS ARE TO BE SELECTED’;: INPUT SE 
N=0B:GOSUB 1000 
FC=FT 
N=SE:GOSUB 1000 
FR=FT 
N=0B-SE:GOSUB 1000 
FM=FT 
COMBS=FC/FR/FM 
PRINT: PRINT 
PRINT "THE NUMBER OF WAYS OF SELECTING ";SE 
PRINT “OBJECTS FROM ':0B;"" OBJECTS IS" 
PRINT COMBS 
END 
REM FACTORIAL SUBROUTINE 
REM THIS PROGRAM EVALUATES N! AND PLACES THE RESULT 
REM IN THE PARAMETER FT 
IF N<1 THEN PRINT "GOTCHA! N<1":STOP | 
IF INT(N)<>N THEN PRINT "GOTCHA! N NOT AN INTEGER": STOP 
IF N>33 THEN PRINT “GOTCHA! TOO BIG FOR THE MACHINE"! 


FT=1 
FOR I=1 TO N 
FT=FT*I 

NEXT I 
RETURN 


Thi 
bes 


The 


whe 
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P70 Least squares 


s program uses the method of least squares to find the 
t straight Line through a set of data points. 


straight Line found is in the form 
Y=MX+B 


n the equation is formed it is printed out. 


COMMANDS 


Key 


in the program and RUN. 


Enter the data items in the form X,Y. 


CD 

210 
220 
230 
240 
250 
260 


REM PROGRAM — LEAST SQUARES 


PRINT "[CS CD CD CD CD CD CD CD CD CD CD J" 
PRINT " LEAST SQUARES" 

A=TI 

IF TI<A+100 THEN GOTO 50 

PRINT "[CS ]" 

PRINT "THIS PROGRAM IS USED TO FIND THE BEST" 


PRINT “STRAIGHT LINE FIT TO A SET OF DATA " 
PRINT ‘POINTS. THE BEST STRAIGHT LINE IS FOUND” 
PRINT "BY THE METHOD OF LEAST SQUARES." 

GOSUB 2000 

PRINT "ENTER NUMBER OF DATA POINTS" 

INPUT N 

DIM X(N),YOCN) 

PRINT: PRINT: PRINT 

XS$=0: SS=0: YS=0: xXY=0 

PRINT "ENTER DATA IN THE FORM OF NUMBER PAIRS" 
PRINT "X AND Y" 


FOR I= 1 TON 

PRINT "[CH CD CD CD CD CD CD CD CD CD CD CD CD CD CD CD 
Ikea 

INPUT X(I) 

INPUT "Y= "sY(1) 

XS=XS+X(1) 

SS=SS+X(1)*X(1) 

YS=YS+Y(1) 


XY=XY+XCI)*YC(T) 
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270 NEXT I 

280 D=N*SS-XS*XS 

290 IF D=0 THEN PRINT "NO FIT POSSIBLE BY THIS ROUTINE": STOP 
300 M=(N*XY-XS*YS)/D 

310 B=YS/N-M*XS/N 

320 PRINT "LINE IS Y="sM;"*X+";B 

330 END 

1990 REM GET KEY SUBROUTINE 

2000 PRINT: PRINT: PRINT 

2010 PRINT "PRESS ANY KEY TO CONTINUE" 
2020 GET AS:IF AS="" THEN GOTO 2020 
2030 RETURN 
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P71 Number of days 


It can be interesting in many everyday problems to calculate 
the number of days between two dates. This program does this 
by calculating the number of days from day zero of the 
Gregorian Calendar for each date and then calculating the 
number of days between the two dates. 


COMMANDS 


Key in the program and type RUN. 
Enter Gregorian dates when prompted. 


10 REM PROGRAM - NUMBER OF DAYS 

20 PRINT "[CS CD CD CD CD CD CD CD CD CD Cb J" 
30 PRINT " NUMBER OF DAYS " 

40 A=TI 

50 IF TI<A+100 THEN GOTO 50 

60 PRINT [cS ]" 

70 PRINT "THIS PROGRAM EVALUATES THE NUMBER OF "' 
80 PRINT "DAYS BETWEEN TWO DATES." 

90 PRINT :PRINT 

100 PRINT ''THE PROGRAM USES THE GREGORIAN CALANDER" 
110 PRINT:PRINT 

120 PRINT "ENTER FIRST DAY OF INTEREST" 

130 INPUT “MONTH (1 TO 12)''2M1 

140 INPUT "DAY (1 TO 31)"3D1 

150 INPUT "YEAR";Y1 

160 MM=M1:DD=D1: YY=Y1 

170 GOSUB 2000 

180 N1=DYS 

190 PRINT:PRINT 

200 PRINT “ENTER SECOND DAY OF INTEREST" 

210 INPUT "MONTH (1 TO 12)'"';M2 

220 INPUT "DAY (1 TO 31)'"'sD2 

230 INPUT "YEAR";Y2 

240 MM=M2: DD=D2: YY=Y2 

250 GOSUB 2000 

260 N2=DYS 

270 PRINT"[CS CD CD CD CD CD CD J" 

280 PRINT ''THE NUMBER OF DAYS FROM'': PRINT 

290 PRINT M1;"/"sD1;"/"7Y13" TO"ZPRINT 

300 PRINT M2;"/";D2;"/";Y2;"" IS":PRINT 
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310 PRINT N2-N1;"DAYS" 
320 END 


1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 


REM 
REM 


SUBROUTINE TO CALCULATE NUMBER 

OF DAYS SINCE DAY O OF GREGORIAN 

CALENDAR 

DATE IS ENTERED AS DAY=DD%, MONTH=MMZ AND YEAR=YYZ 
NUMBER OF DAYS SINCE O IS 

RETURNED AS DYS 

THE DATA HELD IN THE DATA 

STATEMENT ARE THE NUMBER OF 

DAYS FROM THE BEGINNING OF THE 

YEAR TO THE 1ST OF THE MONTH 


RESTORE 
IF MM>12 OR MM<1 THEN PRINT “ERROR IN MONTH": STOP 
IF DD>31 OR DD<1 THEN PRINT “ERROR IN DAY": STOP 


FOR 


I=1 TO MM 


READ TYS 
NEXT I 
DATA 0,31,59,90,120,151,181,212,243,273,304,334 


TYS= 
DYS= 


TYS+DD 
TYStYY*365+INTCYY/4)+1-INTCYY/100)+INTC(YY/400) 


IF YY=INTCYY/4)*4 AND MM<3 THEN DYS=DYS~-1 
RETURN 
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P72 Encoder 


This program can be used to code a secret message. The 
system used for the encoding is very simple. You are asked 
for a key word, the characters of which are used to offset 
the characters of the secret message. The program uses all 
the normal printable characters of the Commodore 16, so that 
characters such as space, full stop and comma etc are also 
encoded. 


COMMANDS 


Press shift and Commodore keys together. This allows you to 
enter the program in upper and lower case characters. 

Key in the program and RUN. 

Follow instructions. 


10 rem program - encoder 

20‘or int: “[cs cd: cd. cd cdicd- cd cd) cd'cd cd" 

30. print. * encoder" 

40 a=ti 

50 if ti<a+100 then goto 50 

60 print "[cs ]" 

70 print chr$(14):rem switch to allow lower case 

80 print "This program can be used to produce a” 
90 print "coded version of a secret message." 

100 print 

110 print "The program bases the encoding on a key” 
120 print "word which you can specify.” 

130 print:print:pr int 

140 print "Press any key to continue’ 

150 get a$:if a$=""" then goto 150 

160 print:print:print 

170 print "Note that in this program we use the 
180 print "normal uppercase-lowercase character set 
190 print:print:print 

200 print "Enter the secret message" 

210 m$="" 

220 get a$:if a$=""" then goto 220 

230 if asc(a$)<>13 then m$=m$ta$: goto 220 

240 print "[cs cd cd cd cd cd ]" 


Bld 


print "Do you wish to see the secret message" 
print "to check it before encoding"; 
input "“Cy/n)";rs 

if Left$(r$,1)="n" then goto 370 
print:print:print 

print "Press space bar to see message” 
get a$:if a$=""" then goto 310 
print:print:print 

print m$ 

print:print:print 

print "Press space bar to hide message" 
get a$:if a$="" then goto 360 

print “Les]) 

Hcint “Les cd-cd: cd <ca-cd.J 

print “Enter the key word” 

kg=""" 

get a$:if a$="" then goto 410 

if asc(a$)<>13 then k$=k$ta$:goto 410 
print Les-ca cd cd-cd cau) 

print "Do you wish to see the key word to” 
print "check it before encoding’; 

input “Cy/n)"srs 

if lLeft$(r$,1)="n" then goto 560 
print:print-print 

print "Press space bar to see key word" 
get a$:if a$=""" then goto 500 
print:print:print 

print k$ 

print: print:print 

print "Press space bar to hide key word” 
get a$:if a$=""" then goto 550 

print. [es cd ca cd cd cd] 

print “Are both the message and the key word” 
print “all right";: input rs 

if r$="n'"' then goto 10 

print:print:print 

rem encoding algorithm 

dim p(25),c(255) ,d(255) 

for i=1 to len(k$) 
p=asc(midS(k$,i,1))2if p>192 then p=p-96 
p(id=p-32 

next 7 

for i=1 to len(m$) 
c=asc(midS(m$,i1,1))2if c>192 then c=c-96 
c(i)=c-32 

next 1 

cga"" 
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2=0 

for i=1 to len(m$) 

d(€id=(cCidtp(j+1)) 
d(€i)d=d€i)-int(d€i)/93)*«93 
c$=c$tchr$(d(i)+32) 

1-374 

J=j)-int(j/lenCkS))*lLen(k$) 

next 1 

print:print:print 

print "Your coded message is....":print:print 
print c$ 

print:print:print 

print “Press space bar to hide message" 
get a$:if a$='"'"" then goto 830 

BRANT. ches.” 

end 
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P73 Decoder 


This program can be used to decode the secret message _ found 
using the encoder program. You need to have the secret 
message plus the key word to find the original message. 


COMMANDS 


Press the Commodore and shift keys together. This allows you 
to enter the program as shown below. 

Key in program and RUN. 

Follow instructions 


10 rem program - decoder 

20 print "{cs cd cd cd cd cd cd cd cd cd cd |" 

30 print " decoder”’ 

40 a=ti 

50 if ti<at+100 then goto 50 

60 print "{cs ]"' 

70 print chr$(14):rem switch to allow Lower case 

80 print “This program can be used to produce a” 

90 print "decoded version of a secret message." 

100 print 

110 print "The program bases the decoding on a key" 
120 print “word which you can specify." 

130 print:print:print 

140 print "Press any key to continue" 

150 get a$:if a$=""" then goto 150 

160 print:print:print 

170 print “Note that in this program we use the 
180 print "normal uppercase-lowercase character set" 
190 print:print:print 

200 print "Enter the coded message" 

210 c$=""" 

220 get aS: if a$=""" then goto 220 

230 if asc(a$)<>13 then c$=c$ta$: goto 220 

240 print "[cs cd cd cd cd ed J" 

250 print "Do you wish to see the coded message" 

260 print "to check it before decoding"; 

270 input "Cy/n)";rs 

280 if left$(r$,1)="n" then goto 370 

290 print:print:print 


OPC-N 
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print "Press space bar to see message" 
get a$:if a$=""" then goto 310 
print-print:print 

print c$ 

print:print:pr int 

print "Press space bar to hide message" 
get a$:if a$=""" then goto 360 

print ces: i 

print. “[es:ed.cd-cd-cd-cd: 1" 

print "Enter the key word" 

kg="""' 

get a$:if a$=""" then goto 410 

if asc(a$)<>13 then k$=k$+a$: goto 410 
print. “Fes sed:ediced: cd cd? 5 

print "Do you wish to see the key word to’ 
print "check it before encoding"; 

input "“Cy/n)" yrs 

if left$(r$,1)="n" then goto 560 
print:print:print 

print "Press space bar to see key word" 
get a$:if a$="" then goto 500 
print:print:print 

print k$ 

print:print:print 

print "Press space bar to hide key word" 
get a$:if a$=""' then goto 550 

print “Les ¢d cd cd cd cd ]" 

print "Are both the message and the key word" 
print "all right';: input rs 

if r$="n"' then goto 10 

print:print:print 

rem decoding algorithm 

dim p(25),c(€255),d(255) 

for i=1 to len(k$) 
p=asc(mid$(k$,i,1)):if p>192 then p=p-96 
p(i)d=p-32 

next 3 

for i=1 to Llen(c$) 
c=asc(mid$(c$,i,1)):if c>192 then c=c-96 
c(i)=c-32 

next 1 

m$="""" 

1-0 

for i=1 to Llen(c$) 

d(id=(cCi)-pCjt1)) 
d(id=dCi)d- int (dCi )/93)*93 

if d(id<O then d(i)=dCi)+93 
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740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
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m$=m$+chr$(d(i)+32) 
j=jt1 
J=j-int(j/lLen(k$) )*Len(kS$) 
next ji 
rint:print:print 
se "Your ee message is....":print:print 
print m$ 
print:print:print : 
print "Press space bar to hide message 
get a$:if a$="" then goto 830 
Drint. (ses. 
end 


Decoder 
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P74 Dog race 


In this program we introduce you to the Commodore dog track. 
It can be profitable to play the part of the bookie when 
running the program. 


COMMANDS 


Key in the program and RUN. 
Follow instructions. 


10 REM PROGRAM - DOG RACE 

20 PRINT CHR$(147) 

30 PRINT: PRINT: PRINT: PRINT= PRINT 

40 PRINT " DOG RACE" 
50 A=TI 

60 IF TI<A+150 THEN GOTO 60 

70 PRINT "[CS ]"2PRINT:PRINT 


80 PRINT " RACE NIGHT cS 
90 PRINT:PRINT: PRINT 

100 PRINT " GOOD EVENING FOLKS" 

110 PRINT " WELCOME TO THE " 

120 PRINT " COMMODORE DOG TRACK" 


130 PRINT: PRINT: PRINT 

140 PRINT "PRESS ANY KEY TO CONTINUE” 

150 GET AS:IF A$=""" THEN GOTO 150 

160 PRINT "[CS ]" 

170 DIM C(10):REM COLOR ARRAY FOR DOGS 

180 FOR I=1 TO 10 

190 READ C(1) 

200 NEXT I 

210 REM PLACE THE TRAPS 

220 FOR I=1 TO 10 

230 IS=MID$(STRS(1),2):1F LEN(I$)=1 THEN I$=" "+I$ 
240 PRINT:PRINT CHRS(C(1));IS+" ";CHRS(182);SPC(34);"." 
250 NEXT I 

260 PRINT:PRINT "PRESS RETURN TO START" 

270 GET AS:IF AS="'"" THEN GOTO 270 

280 IF ASC(A$)<>13 THEN GOTO 270 

290 PRINT "[CU ] " 

300 PRINT "[CH ]” 

310 FOR I=1 TO 10 
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PRINT:PRINT "[CR CR ] “;CHRS(C(1));CHRS(207) ;"*" 
NEXT I 

DIM 0(10),P(10) 

FOR I=1 TO 10:0¢€1)=5:NEXT I 

FIN=0 

P=INTC(RND(O)*10)+1 

G=0 

FOR I=1 TO 10 

IF P=P(I) THEN G=1 

NEXT I 

IF G=1 THEN GOTO 370 

X=2*P-1: Y=D(P):GOSUB 670 

PRINT " “sCHRS(C(P))7°%"; 
D(P)=D(P)+1 

IF D(P)=38 THEN PCFIN+1)=P:FIN=FIN+1 
IF FIN<10 THEN GOTO 370 
X=21:Y=0:GOSUB 670 

PRINT "'PRESS ANY KEY FOR PLACINGS" 
GET AS: IF A$="""' THEN GOTO 500 

PRINT "[cs ]" 

PRINT: PRINT:PRINT "THE RESULTS WERE" 
PRINT: PRINT: PRINT 


PRINT 1ST DOG - "sP(1) 
PRINT " 2ND DOG - ":P(2) 
PRINT " 3RD DOG - ";P(3) 


>PRINT: PRINT 

PRINT “IN ORDER THE REST WERE':PRINT:PRINT 
FOR I=4 TO 10 

PRINT “ DOG ";P(1) 

NEXT I 

END 

END 

REM COLOR DATA 

DATA 28,30,144,149,150, 153,154, 156,158,159 
REM PRINT AT SUBROUTINE 

PRINT "[CH ]" 

IF X=O THEN GOTO 710 

FOR I=1 TO X:PRINT:NEXT I 

IF Y=O THEN GOTO 720 

FOR I=1 TO Y-1:PRINT"[CR ]";:2NEXT I 

RETURN 
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P75 Magic matrix 


This program is based on an interesting idea presented in 
Martin Gardener's book "Mathematical Puzzles and Diversions", 
(Bell, 1964). 


The program generates a matrix which 1s not a magic square 
but which has some interesting properties. 


We have found that this is an amusing party trick, even if 
the matrix is simply drawn out on a piece of paper. The 
basic idea is rather simple; see if you can work it out. 


COMMANDS 


Press the shift and Commodore key together to go into lower 
case mode. 

Key in the program and RUN. 

Follow instructions. 


10 rem program - magic matrix 

20 cl$=chr$(147):home$=chr$ (19) = down$=chr$( 17): acros$= 
chr$(29) 

S0-cpr int cls; 

40 x=10:2 y=13:gosub 930 

50 print “magic matrix" 

60 a=ti 

70 if ti<at+150 then goto 70 

80 rem set up screen display 

90 brder=4:screen=0 

100 purple=5: yel Low=8: red$=chr$(28): black$=chr$(144) 
110 case$=chr$( 142): uncase$=chr $(14) 

120 color brder,yellow 

130 color screen,purple 

140 print cl$+black$+uncase$ 

150 x=3:y=3:gosub 930 

160 print "This program produces a square array" 
170 print " with an interesting property." 

180 x=7:y=3:gosub 930 

190 print “You are asked to choose any number" 
200 print " in the square. You indicate " 
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print '' your choice by a row and column " 
print ‘' number.” 
x=13:y=3:gosub 930 
print ‘The computer will then block out" 
print " all other numbers in that row" 
print ' and column. This continues until" 
print '' atl the numbers are either chosen" 
print '' or deleted." 
x=20: y=3:gosub 930 
print “Press any key to continue"; 
get a$:if a$=""" then goto 310 
print cl$; 
x=3:y=3:gosub 930 
print "Whatever numbers are chosen, the "' 
print '' sum of the chosen numbers will be" 
print '' equal to the number the computer" 
print " will print at the bottom of the " 
print '' screen before you start." 
x=20: y=3:gosub 930 
print "Press any key to continue’; 
get a$:if a$=""" then goto 410 
dim x(5,2) 
sum=0 
for i=1 to 5 
x€i1,1)=int(rnd(0)*31) 
x€i,2)=int(rnd(0)*31) 
sum=sumtx€i,1)+x €i,2) 
next 1 
dim-ats;5)rowls)7col (5) 
print cl$tred$t'[ron ] [rot ]"tblack$ 


for N=1-t0-5 
for k=1 to 5 
a(n,k)=x(n,2)+x(k,1) 


p=a(n-k):gosub 870 
x=3t2en:y=4+4*kigosub 930 
print p$; 

next kinext n 

s$="" 

x=20:y=1:gosub 930 

print ‘Sum = "sum 

tor j=1 t0.2 
x=21:y=1:gosub 930 

input ‘Row = “;rw 

input “Column = ";cl 

if row(rw)>0 or col (cl)>0 then 620 
row(rw)=1i:col(cl)=1 

print reds 
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for i=0O to 4 

x=5+i1*2: y=5t4ecligosub 930 
DReint. 7 aac 

x=3+2%rw: y=9+4xi:gosub 930 
Deine owe 

next i 


print black$; 
s$=s$t+"+"+str$(a(rw,cl)) 
x=3+2*rw:y=35:gosub 930 
print-aCrw,ct)s 

next j 

x=24: y=1:gosub 930 

print mid$(s$,2)+"'="5sum; 

get aS: if a$="" then goto 830 
print cl$+tcase$ 

end 

rem format subroutine 
p$=str$(p) 

if Len(p$)>=3 then goto 910 
p$="" etoS 

goto 880 

return 

rem subroutine to place cursor at position x,y 
print homes; 

if x=1 then 960 

for r=1 to x<tprint down$;:next r 
if y=1 then 980 

for c=1 to y-print acros$;inext c 
return 
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P76 Shuffle 


This program shuffles a deck of cards on the _ screen. The 
program uses the Commodore card characters. 


You could consider this program to be the kernel of any card 
based game. 


COMMANDS 


Key in the program and RUN. 


10 REM PROGRAM - SHUFFLE 

20 CL$=CHR$(147):HOMES=CHRS( 19) = 
DOWNS=CHR$(17) 2 ACROSS=CHRS$(29) 

30 HS=CHR$(115)2C$=CHRS( 120): 
D$=CHR$( 122): S$=CHRS(97) 

40 PRINT CL$; 

50 X=10:Y=16:G0SUB 490 

60 PRINT "SHUFFLE" 

70 A=TI 

80 IF TI<A+150 THEN GOTO 80 

90 REM SET UP SCREEN DISPLAY 

100 BRDER=4: SCREEN=0 

110 PURPLE=5: YELLOW=8: RED$=CHR$(28): 
BLACKS=CHRS$( 144) 

120 CASE$=CHRS$( 142) 2 UNCASES=CHRS( 14) 

130 COLOR BRDER,YELLOW 

140 COLOR SCREEN,PURPLE 

150 FOR I=2 TO 9 

160 HRS=HRS+MIDS(STRS( 1) ,2)+HS 

170 CBS=CBS+MIDS(STRS(1) ,2)+C$ 

180 DIS=DIS+MIDS(STRS(1),2)+D$ 

190 SPS=SP$+MIDS(STRS(1),2)+S$ 

200 NEXT I 

210 HRS="A'+HStHRSt"T’+HSt"'J"+HS+"Q"+HSt"K'+HS 

220 CBS="A'+C$+CBSt"T'+C St" J"+C St" Q"tCSt"K'+C$ 

230 DIS="A'+DStDISt"T"+DSt"J"tDS+"Q"+DSt"K" 4D 

240 SPS="A'+SS+SPSt"T"+SSt" J" tSSt"Q"+SSt"K'"'+SS 

250 PACKS=HRS+CBS+DIS+SPS$ 

260 PRINT CL$+BLACKS 

270 PRINT "[RON ] SHUF FLING [ROF 
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280 FOR Z=1 TO 10:PRINT DOWNS: NEXT Z 
290 PRINT "[RON ] [ ROF 


300 SHUFFLED$=""" 

310 FOR I=1 TO 50 

320 P=CINTCRND(O)*(53-1))+1)*2-1 

330 SHUFFLEDS=SHUFFLEDS+MIDSC( PACKS ,P,2) 

340 PACKS=LEFTSC PACKS ,P-1)+MIDSCPACKS ,-P+2) 
350 TS=SHUFFLEDS+PACKS 

360 PRINT HOMES+DOWNS+DOWNS+ DOWNS + DOWNS + DOWNS 
370 FOR J=1 TO 4 

380 HNS=MIDS(TS$,(J-1)*264+1,26) 

390 FOR «K=0 TO 12 

400 CDS=MIDSCHNS ,K*2+1,2) 

410 S$=RIGHTS(CD$,1) 

420 IF SS=HS OR SS$=D$ THEN PRINT REDS;CDS$;7" ";:GOTO 440 
430 IF S$=CS OR SS$=S$ THEN PRINT BLACKS;CD$;" "'; 
440 NEXT K 

450 PRINT:PRINT 

460 NEXT J 

470 NEXT I 

480 END 

490 PRINT HOMES; 

500 IF X=1 THEN 520 

510 FOR R=1 TO X:PRINT DOWNS;=NEXT R 

920 IF Y=1 THEN 540 

530 FOR C=1 TO Y=PRINT ACROSS;:=NEXT C 

540 RETURN 
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P77 Recipes 


In this program, we have recorded some of our favorite 
recipes. These are based on recipes in “Favourite Family 
Cookbook" by Norma Macmillan, Octopus (1978). 


Although we have included our own recipes, it would perhaps 
be better if you replaced our data statements with your own. 


COMMANDS 


Key in program and type RUN. 
Follow the menus as presented. 


10 REM PROGRAM FOR RECIPES 
20 PRINT "[CS ]"; 


30 PRINT "[RON ] RECIPES [ROF ]" 
40 PRINT:PRINT: PRINT: PRINT 

50 PRINT " 1. [RON JHORS D'OEUVRES[ROF ]'"' 
60 PRINT " 2. [RON ]SOUPS [ROF J" 
70 PRINT " 3. [RON JFISH [ROF J" 
80 PRINT " 4. [RON ]MEAT [ROF J" 


90 GOSUB 1000 

100 IF CH<1 OR CH>4 THEN GOTO 10 
110 RESTORE 

120 REM SELECT SUB MENU 

125 IF CH=1 THEN GOTO 185 

130 FOR M=1 TO CH-1 

140 READ T$ 

150 FOR I=1 TO 4 

160 READ T1$ 

170 NEXT I 

180 NEXT M 

185 READ T$ 

190 PRINT "[CS ]"ZPRINT: PRINT: PRINT 
200 PRINT TAB(20-LEN(TS)/2);CHRS(18);T$; CHRS( 146) 
210 PRINT: PRINT: PRINT 

220 FOR M=1 TO 4 

230 READ MS 

240 PRINT TAB(5);M;"" "sM$ 

250 NEXT M 

260 IF CH=4 THEN GOTO 330 
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270 FOR M=CH+1 TO 4 

280 READ S$ 

290 FOR N=1 TO & 

300 READ S$ 

310 NEXT N 

320 NEXT M 

330 REM WE HAVE NOW READ PAST ALL TITLE PAGES 

340 C=CH 

350 GOSUB 1000 

360 REM NOW WE CALCULATE WHERE TO READ FROM 

370 REM C=RECIPE TYPE:CH=CHOICE WITHIN TYPE 

380 REM THEREFORE RECIPE NUMBER IS (C-1)*4+CH 

390 REM EACH RECIPE IS HELD IN 21 DATA ITEMS 

400 REM THUS WE HAVE TO READ PAST 

410 REM (€(C-1)*4+CH-1)*21 ITEMS TO GET 

420 REM TO RECIPE 

430 E=((C-1)*4+CH-1)*21 

440 FOR I=1 TOE 

450 READ S$ 

460 NEXT I 

470 REM NOW WE ARE AT THE CORRECT RECIPE 

480 READ TS 

490 PRINT "[CS ]"; TAB(20-LEN(T$)/2); CHR$(18); T$; 
CHR$(146): PRINT: PRINT 

500 FOR I=1 TO 19 

510 READ L$ 

520 PRINT L$ 

530 NEXT I 

540 PRINT "'PRESS ANY KEY TO RETURN TO MENU" 

550 GET AS: IF AS="""" THEN GOTO 550 

560 RUN 

999 END 

1000 PRINT: PRINT: PRINT 

1010 PRINT “ENTER THE APPROPRIATE NUMBER"' 

1020 PRINT "'FOR THE RECIPE OF YOUR CHOICE "; 

1030 INPUT CH 

1040 RETURN 

2000 DATA H ORS D'OEV RE S,KIPPER PATE,EGG MAYONNAISE 
2010 DATA MUSHROOMS A LA GRECQUE,GRILLED GRAPEFRUIT 
2020 DATA S OU P S,BORSCH,PEA SOUP,OXTAIL SOUP,FRENCH ONION 
SOUP 

2030 DATA F I S H,TROUT WITH ALMONDS,SALMON STEAKS,FINNAN 
HADDIE 

2040 DATA SCALLOPS AND BACON 

2050 DATA M E A T,NEAPOLITAN STEAK,WEINER SCHNITZEL,LAMB 
CURRY,PORK 'N" ORANGE 

2999 REM HORS D‘OEVRES 
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REM KT PORVE OR: (PACT CE 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


oR LE SPUPOESR. “PoAS TE 

2 TBLESPOON UNSALTED BUTTER 

We LBVKICPER PILLETS 

+1 COP CREAM CHEESE 

1/2 GARLIC CLOVE - CRUSHED 

JUICE OF 1/2 LEMON 

BLACK PEPPER,,, 

MELT BUTTER IN FRYING PAN 

ADD THE KIPPERS AND COOK TILL SOFT 
REMOVE FISH AND COOL THEN FLAKE FISH 
BLEND FISH CHEESE ETC UNTIL SMOOTH 
SERVE CHILLED WITH PEPPER,,,, 

EG G MAYONNATISE 

4 LARGE LETTUCE LEAVES 

8 SPRIGS WATERCRESS 

4 EGGS - HARD BOILED AND HALVED 

1 AND 1/4 CUPS OF MAYONNAISE 

PINCH OF PAPRIKA,,, 

PUT A LETTUCE LEAF ON EACH PLATE 

ADD 2 SPRIGS OF WATERCRESS TO EACH 
PLACE EGGS IN CENTER FLAT SIDE DOWN 
POUR OVER MAYONNAISE AND ADD PAPRIKA,,,,,,7, 
MUSHROOMS A LA GRECQUE 

1 AND 1/4 CUPS WATER 

SMALL ONION CHOPPED 

1 TEASPOON TOMATO PASTE 

SALT AND PEPPER TO TASTE 

BOUQUET GARNI 

LEMON JUICE TO TASTE 

3 CUPS OF SMALL BUTTON MUSHROOMS 
PARSLEY TO GARNISH,,, 

PUT ALL EXCEPT MUSHROOMS AND GARNISH 
INTO SAUCEPAN AND SIMMER FOR 5 MINUTES 
ADD MUSHROOMS AND SIMMER FOR 10 MINS 
REMOVE MUSHROOMS 

BOIL LIQUID UNTIL 3-4 TABLESPOONS LEFT 
POUR OVER MUSHROOOMS AND SERVE WITH 
PARSLEY,, 

GRILLED GRAPEFRUIT 

2 LARGE GRAPEFRUIT - HALVED 

4 TEASPOONS OF MEDIUM SHERRY 

4 TABLESPOONS OF BROWN SUGAR 

1 TABLESPOON OF BUTTER - CUT INTO FOUR,,,, 
LOOSEN SEGMENTS OF GRAPEFRUIT AND 
REMOVE SEEDS. DRAIN HALVES ONTO KITCHEN 
PAPER FOR A FEW MINUTES. PLACE 
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3308 
3309 
55:10 
$3.1 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 
4008 
4009 
4010 
4011 
4012 
4013 
4014 
4100 
4101 
4102 
4103 
4104 
4405 
4106 
4107 
4108 
4109 
4110 
4111 
4112 
4113 
4114 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


GRAPEFRUIT HALVES IN GRILL PAN CUT 
SIDES UP. SPRINKLE EACH WITH SUGAR AND 
SHERRY. TOP EACH WITH BUTTER AND GRILL 
UNTIL BUBBLING.,,,,, 

B07 R-$.-C 3H 

2 TABLESPOONS OF BUTTER 

LARGE UNION - PEELED AND SLICED 

LARGE CARROT - PEELED AND GRATED 

2 LARGE COOKED BEETROOTS - SLICED 

1/2 SMALL HEAD RED CABBAGE - SHREDDED 

1 TABLESPOON OF TOMATO PASTE 

1 TABLESPOON OF VINEGAR AND 1 OF SUGAR 
SALT AND PEPPER TO TASTE 

> CUPS OF BEEF STOCK 

1 AND 1/4 CUPS OF SOUR CREAM TO SERVE,,, 
MELT BUTTER IN PAN AND COOK VEGETABLES 
GENTLY FOR 5 MINUTES. STIR IN OTHER 
INGREDIENTS AND SIMMER FOR 20-30 MINS 
UNTIL VEG ARE TENDER. SERVE WITH CREAM.,,, 
ae ey, Vem! ah I 

2 TABLESPOONS OF BUTTER AND 1 OF OIL 

1 ONION AND 2 CELERY STALKS - CHOPPED 
2 CUPS OF SHELLED PEAS 

1 SMALL HAM BONE 

2 CUPS OF CHICKEN STOCK 

1 TABLESPOON OF CORNFLOUR 

1 AND 1/4 CUPS OF MILK 

SALT AND PEPPER TO TASTE,,, 

MELT BUTTER AND OIL IN PAN - FRY CELERY 
AND ONION. COOK PEAS FOR 5 MINS. ADD 
BONE AND STOCK THEN BOIL FOR 40 MINS. 
REMOVE BONE AND PUREE SOUP. DISSOLVE 
FLOUR IN MILK AND ADD TO SOUP. SIMMER 
UNTIL THICK.,,, 

6 Me ie Dae eas Od Be SO. UP 

4 TABLESPOONS OF OLIVE OIL 

4 AND 1/2 PINTS OF WATER 

1 OXTAIL - CUT INTO PIECES 

2 ONIONS AND 2 CARROTS - CHOPPED 

2 CELERY STALKS AND 1 TURNIP - CHOPPED 
SALT AND PEPPER 

ONE 14 OZ CAN OF TOMATOES 

2 TABLESPOONS OF FLOUR AND 4 OF SHERRY.,,, 
BROWN OXTAIL AND FRY VEG TILL SOFT. ADD 
TO WATER WITH SALT AND PEPPER. SIMMER 
FOR 4 HOURS. REMOVE OXTAILS AND CUT 
MEAT FROM BONES. REMOVE FAT FROM SOUP 
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4213 
4214 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4308 
4309 
4310 
4311 
4312 
4313 
5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
2009 
5010 
9011 
2012 
5013 
5014 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5108 
5109 
5110 
5111 
5200 
5201 
9202 
9203 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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AND RETURN MEAT. THICKEN WITH SHERRY 
AND FLOUR. SERVE HOT.,,, 

FRENCH ON TON SOU P 

2 TABLESPOONS BUTTER 

2 TABLESPOONS OF OLIVE OIL 

1 GARLIC CLOVE - CRUSHED 

3 LARGE SLICED ONIONS 

5 CUPS OF BEEF STOCK 

SALT AND PEPPER 

8-12 SLICES OF FRENCH BREAD 

3/4 CUP OF CHEESE.,,, 

FRY GARLIC AND ONION FOR 20 MINS - DO 
NOT BROWN TOO MUCH. ADD TO STOCK WITH 
SALT AND PEPPER. SIMMER FOR 30 MINS. 
TOAST BREAD. SERVE SOUP HOT WITH TOAST 
AND CHEESE.,,,, 

Uke Ono or WITH ALMOND S§ 

1/4 CUP PLAIN FLOUR 

SALT AND PEPPER 

4 LARGE TROUT - CLEANED 

1/3 CUP BUTTER 

1/2 CUP ALMOND FLAKES 

2 TEASPOONS OF LEMON JUICE 

LEMON AND PARSLEY TO GARNISH,,, 

MIX FLOUR WITH SALT AND PEPPER AND COAT 
THE TROUT. MELT BUTTER IN PAN AND BROWN 
TROUT QUICKLY ON BOTH SIDES. COOK TROUT 
UNTIL TENDER. REMOVE FISH AND KEEP HOT. 
COOK ALMONDS IN PAN UNTIL GOLDEN. STIR 
IN LEMON JUICE. POUR LIQUID AND 

ALMONDS OVER FISH AND GARNISH.,,, 
SALMON Ss TEAK :S 

4 SALMON STEAKS 

1/4 CUP OF BUTTER CUT INTO FOUR 

4 HALF BAY LEAVES AND 4 ONION SLICES 

4 SLIVERS LEMON RIND AND 4 SPRIGS THYME 
4 PARLSEY SPRIGS 

SALT AND PEPPER: TO: TASTE,;7,, 

DIVIDE INGREDIENTS INTO INDIVIDUAL 
PORTIONS. WRAP EACH IN FOIL AND BAKE 

IN A MODERATE OVEN (180 €:350 F GAS 
MARK 4). FOR 15-20 MINUTES. SERVE 
STEAKS HOT WITHOUT HERBS.,,,,, 
FINNAN pile eae ig) BT ae = 

1 AND 1/2 LB SMOKED HADDOCK - CHOPPED 

1 AND 1/4 CUPS OF MILK 

2/3 CUP OF SINGLE CREAM 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


2 TABLESPOONS BUTTER 

PEPPER 

6 EGGS,,, 

PLACE FISH IN BAKING DISH. PUT MILK AND 
CREAM AND BUTTER IN PAN AND HEAT UNTIL 
BUTTER IS MELTED. POUR OVER FISH. BAKE 
IN MODERATE OVEN (180C : 350F = GAS 4) 
FOR 20 MINS. POACH EGGS 5 MINS BEFORE 
FISH IS READY. TOP FISH MIXTURE WITH 
EGGS AND SERVE.,,,-, 

SC ALLO PS: “AUN D> YB CA“C 70 ON 
16-20 SHELLED SCALLOPS 

SALT AND PEPPER AND LEMON JUICE 

16-20 SLICES OF BACON,,,, 

SPRINKLE SCALLOPS WITH SALT AND PEPPER 
AND LEMON JUICE. STRETCH BACON WITH 
FLAT KNIFE. WRAP RASHER ROUND EACH 
SCALLOP AND SECURE WITH COCKTAIL STICK. 
GRILL SLOWLY TILL COOOKED - 5 MINS 

AND SERVE WITH TARTARE SAUCE.,,,,-,7,, 
NE ANP OCT CAN Seo Ee AK 

4 SIRLOIN STEAKS 

3 CUPS PEELED AND CHOPPED TOMATOES 

2 TABLESPOONS OLIVE OIL 

2 CHOPPED GARLIC CLOVES 

1 TABLESPOON CHOPPED PARSLEY 

1/2 TEASPOON OREGANO 

1 TEASPOON OF SUGAR 

SALT AND PEPPER.,,-, 

BOIL TOMATOES OIL GARLIC PARSLEY SUGAR 
SALT AND PEPPER. SIMMER FOR 5 MINS. 
GRILL STEAKS AND POUR SAUCE OVER. 
SERVE HOT.,,,,, 

Wo CEON- EUR: 970 HON 2B 

4 VEAL ESCALOPES POUNDED THIN 

JUICE OF 2 LEMONS 

SALT AND PEPPER AND LARGE BEATEN EGG 

1 CUP OF DRY BREADCRUMBS 

3 TABLESPOONS BUTTER 

LEMON WEDGES TO GARNISH,,, 

MARINATE VEAL IN LEMON WITH SALT AND 
PEPPER FOR 1 HOUR. DIP VEAL IN EGG AND 
COAT WITH BREADCRUMBS. FRY VEAL IN 
BUTTER TILL GOLDEN BROWN.,,,,,7,, 
LAMB CURRY 

2LB LEAN LAMB CUBED 

2/3 CUP YOGHURT 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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2 TEASPOONS OF GARAM MASALA 

1 TABLESPOON CURRY POWDER 

2 TABLESPOONS OF BUTTER 

2 TABLESPOONS OF OLIVE OIL 

2 CHOPPED ONIONS 

1 CRUSHED GARLIC CLOVE 

SALT PEPPER AND LEMON JUICE TO TASTE 
2/3 CUP DRIED FRUIT 

2 TABLESPOONS OF ALMONDS, 

MIX YOGHURT WITH GARAM MASALA AND CURRY 
ADD LAMB CUBES AND MARINATE FOR 4 HOURS 
FRY ONIONS AND GARLIC TILL SOFT. STIR 
IN LANB AND YOGHURT WITH SALT:PEPPER & 
LEMON JUICE. COOK FOR 5 MINS THEN ADD 
FRUIT AND ALMONDS. SIMMER TILL TENDER.,, 
PORK '‘'N' ORANGE 

1/4 CUP PLAIN FLOUR 

1 AND 1/2LB PORK FILLET CUT INTO CUBES 
2 TABLESPOONS OF BUTTER 

1 SMALL CHOPPED ONION 

1 CHOPPED GREEN PEPPER- NO PITH OR SEED 
GRATED RIND AND JUICE OF 2 ORANGES 

1 TABLESPOON OF WORCESTERSHIRE SAUCE 


2/3 CUPS OF BEEF STOCK 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1 PEELED SEGMENTED ORANGE,, 

MIX FLOUR SALT AND PEPPER IN BAG. ADD 
PORK CUBES AND SHAKE TO COAT. FRY ONION 
AND PEPPER IN BUTTER TILL SOFT. BROWN 
PORK. STIR IN ORANGE RIND AND JUICE ADD 
STOCK AND SAUCE. SIMMER FOR 10 MINS. 
ADD ORANGE SEGS AND COOK FOR 2 MINS. 
SERVE HOT,,, 


REM END OF PROGRAM DATA 


Recipes 


A useful program for the kitchen here - it lets you know 
long it will be before a meal is ready. 
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P78 Kitchen timer 


period specified an alarm sounds. 


COMMANDS 


Key 


in the program and RUN. 


Enter the delay required when prompted. 
Press any key to stop the alarm. 


OPrc-O 


REM KITCHEN TIMER 

REM xxkkkakkakk ak 

REM 

UP$=CHR$(145)2REM UP CURSOR 
S$=CHRS$( 32) 

FOR N=O TO 2:S$=S$+S$+S$:NEXT:REM SS CONTAINS 27 SPACES 
COLOR 0O,1:REM BLACK SCREEN 
COLOR 1,6,6:REM GREEN INK 
COLOR 4,1:REM BLACK BORDER 


REM oo a I I IO IO IK Rk 
SCNCLR: PRINT: PRINT: PRINT 

PRINT TAB(14)"KITCHEN TIMER" 

PRINT TABC(C14)'++4++4+4+4+4+44+44+" 

PRINT: PRINT 

PRINT TAB(5)"WHAT SETTING DO YOU REQUIRE?" 
PRINT 

DO 

> PRINT TABC(11): INPUT''HOURS";HZ 


> IF HZ<O OR H%Z>23 THEN PRINT UPS$+SS$+UPS$:F=1:ELSE F=0 


LOOP UNTIL F=0 

PRINT 

DO 

>: PRINT TAB(11)2: INPUT'MINUTES' MZ 


> IF MZ<O OR MZ>59 THEN PRINT UP$+SS+UPS$:F=1:ELSE F=0 


LOOP UNTIL F=0 

PRINT 

DO 

> PRINT TAB( 11): INPUT'SECONDS';SZ 


> IF S$Z<O OR $%>59 THEN PRINT UPS+SS$+UPS:F=1:ELSE F=O 


LOOP UNTIL F=0 


At the end 


how 
the 


TI$=""000000"": REM RESET CLOCK 
DL=HZ*36004+MZ *60+S7% 

SCNCLR 

CHAR,12,9,"'TIME REMAINING" 

TA LEE ELLELELELELLC CRETE 
REM PRINT TIME REMAINING 

DO 


= DS=A$t"s"4+BSt"i"4C$ 
= -CHAR,15,171,D$ 
= REM KKK KKK KKK KKKKAKKKEKKKAKKKK KKK 
REM CALCULATE DELAY 
T=DL-INT(TI/60) 
HZ=T/3600: TM=T-HZ*3600 
MZ=TM/60: 
SZ=TM-MZ*60 
LOOP UNTIL T<=0 
REMkxxAK AK Kk kk kkk kok kek 
REM TIME UP 
SCNCLR 
CHAR,15,9,"'TIME UP" 
CHAR,8,14,""PRESS ANY KEY TO STOP" 
REM KK KKKKKKKKKKKKKKKKEKKKKKKKK 
REM ALARM 
VOL 8 
DO 
> SOUND 1,917,8 
: FOR N=0 TO 1 
: SOUND 2,881,2 
: FOR D=O TO 45:NEXT 
SOUND 2,953,2 
FOR D=0 TO 45:NEXT 
NEXT 
> GET W$ 
LOOP UNTIL LEN(CW$)>0 
END 


REM kkk I IK tok 
RE Mk III I IO tek 
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AS=STRSCHZ)2IF LENCAS)=2 THEN A$S="0"'+RIGHT$(A$,1) 
IF LEN(STRSCHZ))=3 THEN AS=RIGHT$(STR$(HZ),2) 
>: BS=STRS$(MZ):IF LEN(B$)=2 THEN B$="0''+RIGHTS(BS$,1) 
- IF LEN(STRS(MZ))=3 THEN BS=RIGHTS(STRS(MZ),2) 
- C$=STR$(SZ)21IF LEN(C$)=2 THEN C$="0''+RIGHT$(C$,1) 
> IF LENCSTRS(SZ))=3 THEN CS=RIGHTS(STRS$(SZ),2) 


make) 
P79 Counting 


This program could be useful for the very young schoolchild. 
It displays up to nine monsters on the screen. The user is 
required to count the monsters and press the appropriate 
numeric key. The RETURN key is not used. 


The program could be expanded so that several groups of items 
(say monsters, flowers and automobiles) appear on the screen 
at the same time and the user is asked to count the numbers 
in one particular group. 


COMMANDS 


Key in the program and RUN. 
Stop the program by pressing the space bar as instructed. 


10 REM COUNTING 

20 REM xxx KKKK 

30 REM 

40 POKE 52,47:POKE 56,47:CLR: REM RESERVE RAM 
50 MC=12032:REM START OF MACHINE CODE ROUTINE 
60 RA=12288:REM START OF CHARACTER RAM 

70 CC=65298:REM CONTROLS CHARACTER LOCATION 
80 SC=3072:REM START OF SCREEN MEMORY 

90 COLOR O,1:REM BLACK SCREEN 

100 COLOR 1,8,7:REM YELLOW INK 

110 COLOR 4,7,3:REM BLUE BORDER 

120 REMKKA KKK KKK KKKKKKKKKKKKKKK KKK 

130 SCNCLR:ZPRINT: PRINT 

140 PRINT TAB(18)"WAIT" 

150 FOR N=0 TO 33 

160 = READ A:POKE MC+N-,A 

170 NEXT:REM LOAD MACHINE CODE ROUTINE 

180 SYS MC2REM TRANSFER CHARACTER SET 

190 R1=PEEK(CC) 

200 R2=PEEK(CC+1) 

210 POKE CC,R1 AND 2512:REM CHARACTER CONTROL TO RAM 
220 POKE CC+1,(R2 AND 3) OR 48:REM POINT TO CHARACTERS 
230 REM KAKA RK KKK KIKI KK KKK KK I IKK 

240 REM CHANGE CHARACTER SHAPES 

250 FOR N=33 TO 36 

260 = FOR K=0 TO 7 
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READ A 
POKE RA+tK+N*8,A 
NEXT 
NEXT 
REMKKKAKKKKAKKKAKAKKKKKAKKKKKEK 
REM PRINT MONSTERS IN BACKGROUND COLOR 
DO 
SCNCLR 
MNZ=9*RND(1):REM NUMBER OF MONSTERS WILL BE MNZ+1 
FOR K=Q TO MNZ 
bO 
F=0 
X (K)=1+INT(37*RND(1)) 
Y(K)=1+ INTC 18*RND(1)) 
L=SC+40*Y (K)+X(K) 
M=SC+40*(Y(K)+1)+X(K) 
IF PEEK(L)<>32 OR PEEK(L+1)<>32 THEN F=1 
IF PEEK(M)<>32 OR PEEK(M+1)<>32 THEN F=1 
LOOP UNTIL F=0 
CHAR 0,X(K),Y(K),-CHRS(33) 
CHAR 0,X(K)+1,Y(K),CHR$(34) 
CHAR 0,X(K),Y(K)+1,CHR$(35) 
CHAR 0,X(K)4+1,Y(K)+1,CHRS( 36) 
NEXT 
REMAAAAKKAKKKKAKKAKKKKKAK KK 
REM COLOR THEM IN 
FOR K=O TO MN% 
CHAR 1,X(K),Y(K),CHRS(33) 
CHAR 1,X(K)+1,Y(K),CHRS(34) 
CHAR 1,/X(K),Y(K)+1,CHRS(35) 
CHAR 1,X(K)4+1,Y(K)+1,CHRS( 36) 
NEXT 
REMKAKKAKAKAKKKKKAKKKKEAK KEK 
CHAR,10,23,''HOW MANY MONSTERS?" 
VOL 8 
MS=RIGHTS(STRS(MNZ4+1),1) 
bO 
bO 
GETKEY A$ 
LOOP UNTIL ASC(A$)>48 AND ASCCAS)<58 
IF AS<>M%S THEN SOUND 3,1000,50 
LOOP UNTIL AS=M$ 
SOUND 1,810,20 
SOUND 2,596,20 
SOUND 1,810,20 
SOUND 1,917,20 
FOR N=O TO 100:GET BS:IF BS="" “ THEN N=100: NEXT 
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LOOP UNTIL BS=" "REM ONE SPACE 

REM TO STOP PROGRAM AND RESTORE CHARACTERS 
REM HOLD THE SPACE BAR DOWN AS THE "CORRECT" 
REM SOUND ENDS. 
POKE CC,R1 

POKE CC+1,R2 

END 

REMI IO I KK A 

REM I OI IO I I Kk A 
REM 

REM kkk KKK KK 
REM 
REM 
REM 
REM 
REM 
REM kik kK KK 
REM 

REM kk I IR IK IOI OR IKK 
REM I IR I IR I Rk ke 
REM DATA FOR MACHINE CODE ROUTINE 

DATA 169,0,133,3,133,5,169,48,133,4,169,208 
DATA 133,6,160,0,177,5,145,3,200,208,249 
DATA 2350,4,230,6, 169,216,197 ,6,208,239,96 
REM kk RI RI I IK IRR RK A 
REMARK IR IK KR KK KR AK 

REM DATA FOR CHARACTERS 

DATA 1,1,13,13,34,34,42,42 

DATA 64,64,80,80, 136,136,168, 168 

DATA 4,4,49,48,192,192,192,192 

DATA 16,16,76,12,3,3,3,3 

REM kk I OO I IO IK I 

REM 1k RK KI KK KR KK 


DATA 


+ + + + 
+ + + + 
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P80 School report 


This program prepares a school report for a = student. The 
program could be developed to store data on a tape or disk 
file and handle more than one student. 


COMMANDS 


Key in the program and RUN. 
Enter details as requested. 


10 REM PROGRAM - SCHOOL REPORT 
20 PRINT.“ (CS.-CD CD CD-Cp- CDG ED: Co. CDP CD. 
30 PRINT " SCHOOL REPORT" 

40 A=TI 

50 IF TI<A+100 THEN GOTO 50 

60 GOSUB 1000 


7O-PRINT * PLEASE ENSURE THAT YOUR PRINTER" 
80 PRINT " HAS BEEN SET UP CORRECTLY." 

90 PRINT:PRINT: PRINT 

100 PRINT " PRESS ANY KEY WHEN READY" 


110 GET AS:IF AS="""' THEN 110 

120 GOSUB 1000 

130 PRINT "WHAT IS NAME OF SCHOOL "> 
140 INPUT SC$ 

150 INPUT "ENTER STUDENT'S NAME ";NS 
160 OPEN 1,4:REM OPEN PRINTER 

170 PRINT#1,TAB((60-LEN(SC$))/2);SC$ 
180 PRINT#1:PRINT#1:PRINT#1 

190 INPUT "SESSION' S$ 

200 PRINT#H1,"SESSION - ";S$ 

210 PRINT#1,"NAME - "=NG 

220 PRINT#1:PRINT#1:PRINT#H1 


230 PRINT#1," SUBJECT =! ATTEND!GRADE! POSITION! 
COMMENT" 

240 PRINT#1,SPC(14);"! P A! 'IN CLASS!" 

250 

PRINT#1,"-------------- !------ |----- | -------- {== ------------- 


260 REM LOOP BACK POINT 
265 GOSUB 1000 
270 INPUT “SUBJECT (999 TO END)';SBS 


P80 


280 
290 
300 
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IF SBS="'999" THEN 480 

INPUT "POSSIBLE ATTENDANCE ";P$ 

INPUT "ACTUAL ATTENDANCE ";AS 

INPUT "GRADE "';GR$ 

INPUT "POSITION IN CLASS ";PO$ 

INPUT "TEACHER'S COMMENT" ;COS 

IF LEN(SB$)>14 THEN SBS=LEFT$(SB$,14):GOTO 360 
FOR Z=LEN(SB$) TO 13:SBS$=SB$+" "I NEXT Z 

IF LEN(PS)>3 THEN PS=LEFTS(PS$,3):GOTO 380 
FOR Z=LEN(P$) TO 2:P$=P$t+" "SNEXT 2 

IF LENCAS)>3 THEN AS=LEFTSC(AS$,3):GOTO 400 
FOR Z=LEN(AS) TO Z:AS=ASt"' “2 NEXT Z 

IF LEN(GRS$)>5 THEN GRS=LEFTS(GR$,5):GOTO 420 
FOR Z=LENC(GRS$) TO 4:GRS=GR$t+" "ZNEXT Z 

IF LENCPO$)>8 THEN POS=LEFTS(P0O$,8):GOTO 440 
FOR Z=LEN(PO$) TO 7:POS=PO$+" "ZS NEXT 2 

IF LEN(CO$)>20 THEN COS=LEFTS(C0$,20):GOTO 460 
FOR Z=LEN(COS) TO 19: COS=COSt" “ZNEXT 2 
PRINT#H1,SBSt" I "+P$t FP FaSe  "+GRSt' "+ POSH! "4 COS 
GOTO 265 

GOSUB 1000 

PRINT#1:PRINT#1: PRINTA1 

INPUT "OVERALL ASSESSMENT "';0V$ 
PRINT#1,"OVERALL ASSESSMENT" 

PRINT#1, a= = SS = SS 

PRINT#1 

PRINT#1,0V$ 

PRINT#1:PRINT#1:2PRINT#1 

PRINT#1,‘'SIGNATURE OF PARENT OR GARDIAN™ 
PRINIM Up oes eae eee eee 
GOSUB 1000 

INPUT "ANOTHER (Y/N) ",RS 

IF R$="'Y" THEN GOTO 10 

END 


TOOO“PRINT ECS. Js 
1010 PRINT “[RON ] SCHOOL REPORT 


[ROF ] 


1020 PRINT:PRINT: PRINT 
1030 RETURN 
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P81 French tutorial 


The next two programs give the French and German 
implementations of a language vocabulary tutorial. In both 
cases the data are in the form of word pairs which may be 
inserted by the teacher as data statements. The last item of 
data must be EOF. 


The programs give the student up to three attempts at each 
word. After the tutorial is finished statistics are 
returned. 


The programs could be extended so that several alternative 
answers may be accepted for some words. 


COMMANDS 


Key in the program(s) and RUN. 
Follow the instructions. 


10 REM FRENCH TUTORIAL 

20 REM KKKKKKKKKKKKKKK 

30 REM 

40 COLOR 0O,2:REM WHITE SCREEN 

50 COLOR 1,7,3:REM BLUE INK 

60 COLOR 4,10,5:REM BROWN BORDER 

70 SCNCLR:PRINT: PRINT 

80 PRINT TAB(12)"FRENCH TUTORIAL" 

90 PRINT TAB(12)"'==2==S====s======" 

100 PRINT: PRINT 

110 PRINT TAB(4)"THIS PROGRAM TESTS YOUR KNOWLEDGE” 
120 PRINT TAB(4)"'OF FRENCH VOCABULARY. ENGLISH" 
130 PRINT TAB(4)"'WORDS ARE PUT ON THE SCREEN ONE AT" 
140 PRINT TAB(4)"'A TIME AND YOU ARE ASKED FOR THE" 
150 PRINT TAB(4)"FRENCH EQUIVALENTS. YOU ARE" 

160 PRINT TAB(4)"ALLOWED THREE ATTEMPTS AT EACH" 
170 PRINT TAB(4)"WORD." 

180 PRINT:PRINT 

190 PRINT TABC(8)CHRS(18)"' PRESS ANY KEY TO START " 
200 GETKEY A$ 

21D REM KKK AKI KKKKKKKKKEKKKEKEKKKKKK 

220 DO 

230 : RESTORE 
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240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
380 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
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FOR N=1 TO 4:2 R(N)=O2NEXT: TS="""2 YS=""" 
REMXAXAKKKKKAKKKKKKKKKKKKKKKKKKKKKK 
DO 
READ ES 
FL=0 
DO WHILE ES<>"EOF" AND FL=0 
READ FS 
F=2 
FOR N=1 TO 3 


SCNCLR: PRINT: PRINT 
PRINT TAB(14)""ATTEMPT”-N 
PRINT TAB(14)"--------- ‘ 
PRINT:PRINT 
PRINT TAB(7)"TYPE IN THE FRENCH WORD" 
PRINT TAB(7)"THEN PRESS THE RETURN KEY." 
PRINT=:PRINT 
PRINT TAB(7)"ENGLISH WORD IS - "ES 
PRINT:PRINT 
PRINT TAB(8):INPUT'FRENCH WORD IS ";TS 
IF TS=FS THEN R(N)=R(N)+12F=1:N=3 
NEXT 
ON F GOSUB 800,860 
FOR DE=O0 TO 2000:NEXT:REM DELAY 
FL=4 
LOOP 
LOOP UNTIL ES="EOF" 
REMXK KKK KK KKKKKKKKKKKKKKKKKEKKKKKEKE 
REM FINISH 
SCNCLR: PRINT: PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


TAB(8)'""NUMBER CORRECT AT FIRST" 
TAB(8)"ATTEMPT WAS" ?R(1) 


TAB(8)''NUMBER CORRECT AT SECOND" 
TAB(8)"ATTEMPT WAS" -R(2) 


TAB(8)""NUMBER CORRECT AT THIRD" 
TAB(8)"ATTEMPT WAS":R(3) 


TAB(8)""NUMBER OF UNKNOWN” 
TAB(8)"'ANSWERS WAS" 7R(4) 


PRINT: PRINT 
PRINT TAB( 10): INPUT''ANOTHER GO (Y/N)";YS$ 
LOOP UNTIL ASC(YS$)<>89 


END 
REM KAKKAKKKKKKKKKKKKKKKEKEKKKKKKKK 


REM KKKKKKA KKK KKK KKKKKKRK KKK KK KKK 
REM 
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REM KAKKKKKKKKKEKKKEK 

REM * x 

REM *x SUBROUTINES x* 

REM x * 

REM KKKKKKKKKKKKKKK 

REM 

REM KKK KAKKAKAKKKKKKKKKKKKEKEKKKKEKEKE 


REMA* ++ * kA RR RRR RR RK 


REM CORRECT ANSWER 
PRINT: PRINT 
PRINT TAB(15)CHR$( 18)" CORRECT " 


RETURN 
REMA ARK KR KAKA KAR KKK A KKK KR KK AK RK KK KK 


REM AKKAK KA KAKKKAKKAKKKAKKKKAKEKEKEKEK 


REM WRONG ANSWER 

R(4)=R(4) +1 

PRINT: PRINT 

PRINT TABC(7)''CORRECT ANSWER IS - "F$ 

FOR K=1 TO LENC(F$):PRINT TAB(26+K)"'-""32 NEXT 


RETURN 
REMAXKKAKKK RAKE RRR KR RK 


REMARK A KKK KKKKKKKKK KARR KERR KK KEK KK 
REM 

REM PUT IN AS MANY ENGLISH WORDS AS 
REM YOU WISH CEACH FOLLOWED BY ITS 
REM FRENCH EQUIVALENT) 1N LINES 

REM 2000 ONWARDS. TERMINATE THE 

REM DATA WITH EOF AS SHOWN. A FEW 
REM SIMPLE WORDS ARE GIVEN AS 

REM EXAMPLES. 

REM 


REMARK KKK KR KKK KER KK KKK EKER KR AK KK 
REM kkk a IR Ka kk 
REM 

REM kk kkk kk 

REM * * 

REM x DATA * 

REM * * 

REM KakKKKKK 

REM 

REMARK KK RK KKK KKK KKK KKKEKRK KEK KK 


DATA YES,OUI,NO,NON,END,FIN,EOF 


French tutorial 
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REM GERMAN TUTORIAL 
REM KR KKKKKKKKKKKKK 
REM 
COLOR 0,2:REM WHITE SCREEN 
COLOR 1,7,3:REM BLUE INK 
COLOR 4,10,5:REM BROWN BORDER 
SCNCLR:PRINT: PRINT 
PRINT TABC12)"°GERMAN TUTORIAL” 
PRINT TAB(12)"====s2sss=ss====" 
PRINT:PRINT 
PRINT TAB(4)"THIS PROGRAM TESTS YOUR KNOWLEDGE" 
PRINT TAB(4)"0OF GERMAN VOCABULARY. ENGLISH” 
PRINT TAB(4)"WORDS ARE PUT ON THE SCREEN ONE AT" 
PRINT TAB(4)"A TIME AND YOU ARE ASKED FOR THE" 
PRINT TAB(4)"GERMAN EQUIVALENTS. YOU ARE" 
PRINT TAB(4)"*ALLOWED THREE ATTEMPTS AT EACH" 
PRINT TAB(4)"’WORD." 
PRINT=:PRINT 
PRINT TAB(8)CHRS( 18)" PRESS ANY KEY TO START "' 
GETKEY AS 
REMARK ARKKKEKKKKKKEEKKKKKKKKK KKK KK KKK 
DO 
= RESTORE 
FOR N=1 TO 4:2 RON)=O°NEXT: TS=H"" 2 Y$="" 
REM RKAKKKKKKKEKKKKKKKKKKKEK KKK KKKK 
DO 
READ ES 
FL=0 
DO WHILE ES<>"'EQOF” AND FL=0O 
READ GS 
F=2 
FOR N=1 TO 3 
SCNCLR-PRINT: PRINT 
PRINT TABC( 14)" ATTEMPT"; i 
PRINT TAB(14)"--------- 
PRINT: PRINT 
PRINT TAB(7)"TYPE IN THE GERMAN WORD" 
PRINT TAB(7)"'THEN PRESS THE RETURN KEY." 
PRINT: PRINT 
PRINT TAB(7)”" ENGLISH WORD IS - "E$ 
PRINT= PRINT 
PRINT TAB(8):INPUT’GERMAN WORD IS ";TS 
IF TS$=GS THEN R(N)=R(N)+1°F=12N=3 
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NEXT 

ON F GOSUB 800,860 

FOR DE=0 TO 2000:NEXT:REM DELAY 
FL=1 


LOOP 
LOOP UNTIL ES="EOF" 
REM KR A RRR IR IR RI IK I RRR II IK TOK IC 
REM FINISH 
SCNCLR:PRINT: PRINT 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 
PRINT TAB(10):INPUT’ANOTHER GO (Y/N)";Y$ 


TAB(8)"NUMBER CORRECT AT FIRST" 
TAB(8)" ATTEMPT WAS";R(1) 


TAB(8)"NUMBER CORRECT AT SECOND" 
TABC8)"ATTEMPT WAS" ;R(2) 


TAB(8)"NUMBER CORRECT AT THIRD" 
TAB(8)" ATTEMPT WAS";R(3) 


TAB(8)""NUMBER OF UNKNOWN" 
TAB( 8)" ANSWERS WAS" ;R(4) 
PRINT 


LOOP UNTIL ASCC(Y$)<>89 


END 


REMXKKKKKAKKKKKKKKKKKKEKKKKKKKKKKKK 
REM KK KKK AK KKEKKKKKKEKKKEKKKKKKKKKKKK 


REM 
REM 
REM 
REM 
REM 
REM 
REM 


KEKKEKKKKKKKKKKK 
* * 
* SUBROUTINES « 
* * 
KAKKKKKKKKKKKEKE 


REM A a a a KR KR IK II IK IO I I IIR RK 
REM KKK KKK RK KR KKK KKK EK KK IKK KKK KK 
REM CORRECT ANSWER 


PRINT: PRINT 
PRINT TAB(15)CHR$(18)*°' CORRECT " 


RET 


URN 


REM KAKA AK ARKKKKKKKKKKKKKKKKKKKKKKKE 
REMKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKE 


REM WRONG ANSWER 

R(4)=R(4)+1 

PRINT: PRINT 

PRINT TAB(7)"CORRECT ANSWER IS - "G$ 


FOR K=1 TO LEN(G$):PRINT TABC(26+K)"'-"'7 SNEXT 


RET 


URN 
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910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
2000 


German tutorial 


REMKKKKKKKAKKKKKKKKKKKKKKKKKKKK KKK 
REMKKXKKKKKKAKKKKKKKKKKKKKAKKK KK KKK 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


PUT IN AS MANY ENGLISH WORDS AS 
YOU WISH (EACH FOLLOWED BY ITS 
GERMAN EQUIVALENT) 1N LINES 
2000 ONWARDS. TERMINATE THE 
DATA WITH EOF AS SHOWN. A FEW 
SIMPLE WORDS ARE GIVEN AS 
EXAMPLES. 


REMARK KKK KR RRR IR KKK KK KK ARK IK IK 
REMKRKK KKK KK RRR KKK KKKKKK KAKA KK KKK 


REM 
REM 
REM 
REM 
REM 
REM 
REM 


kkerkkKeKe 
* * 
* DATA * 
* * 
KEKKKKKKK 


REMAKKKKKAKKAKKEKKKKKKKKKKKKKKKEKKK 


DATA BLACK, SCHWARTZ, THERE ,DORT,RED,ROT,EOF 
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P83 History tutorial 


This program demonstrates the use of multiple choice 
questions to test history knowledge. Three questions are 
given as examples; one on American history, one on British 
history and one on ancient history. Up to two attempts at 
each question are allowed and statistics are compiled for the 
teacher's use. 


The teacher may enter any number of questions (to the Limit 
allowed by machine memory) using the pattern given in the 
examples. The final data item must be EOF. 


This program may be adapted for any subject to which 
objective testing is applicable. 


COMMANDS 


Key in the program and RUN. 

Follow the instructions. 

The program uses keys 1 to 4 to select answers. The RETURN 
key is not used. 


10 REM HISTORY TUTORIAL 

2O REM Keanna kakkkkkak 

30 REM 

40 COLOR 0O,7,3:REM BLUE SCREEN 

50 COLOR 1,2:REM WHITE INK 

60 COLOR 4,7,3:REM BLUE BORDER 

70 REM XKXKAAKAKKAKKKAKKEEKKKAKK KK 

80 SCNCLR 

90 PRINT TAB(10)CHRS(18)" HISTORY TUTORIAL " 
100 CHAR,O,5,"""' 

110 PRINT TAB(4)"THIS TUTORIAL USES MULTIPLE" 
120 PRINT TAB(4)"CHOICE QUESTIONS. AFTER EACH" 
130 PRINT TAB(4)"QUESTION YOU WILL BE GIVEN" 
140 PRINT TAB(4)"'FOUR POSSIBLE ANSWERS, ONLY" 
150 PRINT TAB(4)"ONE OF WHICH IS CORRECT." 

160 PRINT 

170 PRINT TAB(4)"CHOOSE YOUR ANSWER BY PRESSING" 
180 PRINT TAB(4)"ONE OF THE KEYS 1 TO 4." 

190 CHAR,0,20,""" 


History tutorial AS: 


PRINT TAB(6)"'PRESS ANY KEY TO CONTINUE" 


GETKEY P$ 
REMAKKKKKKKKKAKK KKK KKKEKKKKKKK KKK 


DO 


RESTORE 
DO 
SCNCLR 
READ A$ 
R=1 
DO WHILE A$<>"'EOF" AND R=1 
READ B$,C$,D$,ES$,FS 
CHAR,0,6,'°"" 
PRINT AS 
PRINT=PRINT 
PRINT TAB(4)"'1. "BS 
PRINT TAB(4)"2. "C$ 
PRINT TAB(4)"3. "DS 
PRINT TAB(4)"4. "ES 
FOR N=1 TO 2 
CHAR, 10,2,"ATTEMPT ''+STRS(N) 
DO 
GETKEY G$ 
LOOP UNTIL ASC(G$)>48 AND ASC(G$)<53 
IF GS=FS THEN CHAR,13,20,"CORRECT" 
CA=0 
IF G$=FS THEN R(N)=R(N)4+12N=2:CA=1 
NEXT 
F=VALCFS) 
IF CA=O THEN R(3)=R(3)+1 
IF CA=O THEN ON F GOSUB 710,750,790,830 
R=0 
LOOP 
FOR N=O0 TO 1500:NEXT 
LOOP UNTIL AS="EOF" 


REMAX KKAKKKKKKKKKKKKKKKKKKKKKEKE 


SCNCLR 

PRINT:PRINT 

PRINT"NUMBER CORRECT AT FIRST ATTEMPT WAS";R(1) 
PRINT 

PRINT"NUMBER CORRECT AT SECOND ATTEMPT WAS";R(2) 
PRINT 

PRINT'NUMBER OF UNKNOWN ANSWERS WAS";R(3) 
CHAR,8,15,""" 

FOR N=1 TO 3:R(N)=O2NEXT 

Y$= at Yh 

INPUT "WANT ANOTHER GO";Y$ 


Loop UNTIL ASC(Y$)<>89 
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END 


REM RIKI IR II I IO IO 
REM 4 RRR IOI IO I III IO 
REM FIRST ANSWER CORRECT 
CHAR,7,18,"ANSWER IS "'+B$ 

RETURN 

REM RRR IORI IOI IT tT 
REM SECOND ANSWER CORRECT 
CHAR,7,18,"ANSWER IS "+C$ 

RETURN 

REM RR OOO ITOK Ik 
REM THIRD ANSWER CORRECT 
CHAR,7,18,"ANSWER IS "+D$ 

RETURN 

REM III a IO ak 
REM FOURTH ANSWER CORRECT 
CHAR,7,18,"ANSWER IS "tE$ 

RETURN 


REM AK R ARAKI A AK RIK RIK KIKI KK Ok KIO 

REM ROO IO IOI IO a tok 

REM PUT AS MANY QUESTIONS AS YOU WISH 
REM (EACH FOLLOWED BY FOUR ANSWERS AND 
REM A KEY) IN LINES 960 ONWARDS. 


REM 

REM TERMINATE THE DATA BY EOF. 

REM 

REM A FEW SIMPLE EXAMPLES ARE GIVEN. 


REM RR RIOR IO RI III IK tee 

REM OI II IOI te Tee 

DATA DATE OF AMERICAN DECLARATION OF 
INDEPENDENCE WAS JULY 4TH: 

DATA 1766,1767,1776,1777,3 


REM 2 RRO IORI IO tok 
DATA WHICH BRITISH MONARCH DIED IN 1649? 


DATA CHARLES II,JAMES I,JAMES II,CHARLES 1,4 


REMERKARKKKKKKK RR RK KKK KKK IKK Ok 
DATA WHICH OF THE FOLLOWING BATTLES WAS 
FOUGHT IN 216 BC? 

DATA CANNAE ,MARATHON,SALAMIS,LAKE TRAMENE,1 

REM AR RR AK KR IRR II Ike tok 

DATA EOF 

REM KKK AAKEKKAK ERK RR AK RAR KERR KK RK 

REM A KK I RI IO IOI Ok I kk tk 
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P84 Number base conversion 


This is a very useful program for work in a computing 
laboratory. It allows you to convert numbers from one base 
to another. 


COMMANDS 


Key in the program and RUN. 
Select the conversion you require. 


10 REM NUMBER BASE CONVERSION 

20 REM KKKKKKKKEKKKKKKKKKKKKKK 

30 REM 

40 COLOR 0,11,5:REM YELLOW SCREEN 

50 COLOR 1,4,7:REM CYAN INK 

60 COLOR 4,7,4:REM BLUE BORDER 

70 SCNCLR 

80 CHAR,9,2,''NUMBER BASE CONVERSION" 
90 CHAR 93, [RAK KKEKKKKRKK KKK RK KK A" 
100 CHAR,4,6,"THIS PROGRAM DEALS WITH POSITIVE" 
110 CHAR,4,7,"INTEGER NUMBERS ONLY." 
120 PRINT 

130 GOSUB 1530:REM ANYKEY 

140 REMKKKKAKKKKKKKKKKKKKKKKKE 

150 REM DISPLAY MENU 

160 DO 

170 = SCNCLR 

180 : CHAR,8,3,''1. HEX TO DECIMAL" 
190 : CHAR,8,5,"'2. DECIMAL TO HEX" 
200 : CHAR,8,7,"3. BINARY TO DECIMAL" 
210 = CHAR,8,9,"4. DECIMAL TO BINARY" 
220 : CHAR,8,11,''5. ENDS PROGRAM" 
230 = CHAR,8,14,"ENTER 1,2,3,4 OR 5" 
240 : CHAR,8,16,""' 


250 = INPUT'WHAT IS YOUR SELECTION";X$ 
260 : AZ=ASC(X$)-48 
270 = ON AZ GOSUB400,680,1010,1220 


280 LOOP UNTIL AZ=5 

290 END 

300 REMKKKKKKKKKKKKKKKKKKKKKKK 
310 REM AKKKAKKKKKKAKKKEKKKKKEKKE 
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320 REM 

330 REM KKKKKKKKKKAKKKK 
340 REM x x 
350 REM * SUBROUTINES * 
360 REM x x 
370 REM KRAKKRKRRKKAKKKAKAKE 
380 REM 

390 REM HEX TO DECIMAL 

400 DO 

410 =: SCNCLR 


420 : CHAR,12,3,"HEX TO DECIMAL" 

430 2 CHAR, 12,4 ,"KRAAKAKARARERK 

440 : CHAR,4,7,"PLEASE USE CAPITAL LETTERS FOR" 
450 : CHAR,4,8,"HEX SYMBOLS A TO F." 

460 : CHAR,4,11,"" 

470 : INPUT''WHAT IS THE HEX NUMBER" ;H$ 


480 : pc=0 

490 : FOR N=1 TO LENCHS) 

500 : HX=ASC(MID$(HS,N,1)) 

210% BAD=1 

520 : IF HX>47 AND HX<58 THEN HX=HX-48:BAD=0 
550s IF HX>64 AND HX<71 THEN HX=HX-55:BAD=0 
540 : IF BAD=1 THEN N=LEN(CHS) 

oye 7 0 gar D=HX*16*(LENCHS$)-N) 

560%: DC=DC+D 

570 : NEXT 


580 LOOP WHILE BAD=1 

590 REM DEC FUNCTION NOT USED SO THAT VALUES 
600 REM GREATER THAN SFFFF MAY BE ACCEPTED 
610 CHAR,4,14,"DECIMAL NUMBER IS" 

620 PRINT DC 

630 GOSUB 1530:REM ANYKEY 


640 RETURN 
650 REMRKKAAKAKAKAKKKARKREKKK 


660 REMAKKAKKKKKKKKKKKKEEAKEKR 
670 REM DECIMAL TO HEX 

680 DO 
690 : SCNCLR 

700 =: CHAR,12,3,"DECIMAL TO HEX" 

710 5 CHAR, 12,4 RK KRRRKR ARR KER 

(20.5 “CHARS; C,. 

730 : INPUT''WHAT IS THE DECIMAL NUMBER"; DS 
740 =: HS="""' REM NO SPACE 


750 : BAD=0 
760 = FOR N=1 TO LENCDS) 
710 3 DD=ASC(MID$(D$,N,1)) 


780 : IF DD<48 OR DD>57 THEN BAD=1:N=LEN(DS) 
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790 : 


800 
810 
820 
830 
840 
850 
860 
870 


LOO 


NEXT 
P UNTIL BAD=0 


DC=VAL(D$) 


REM 


KKEKKKKKKKKKKKKKKKKEKE 


REM CALCULATE LOOP (HEX) 


DO 


880 : 


890 : 


990 


LOO 


D=16*(DC/16-INT(DC/ 16) ) 
IF DC<16 THEN D=DC 
DC=INT(DC/16) 
D=D+48:1F D>57 THEN D=D+72REM CONVERT D TO ASCII 
fal CHRS(D)+HS 
P UNTIL DC=0 


REM HEX$S FUNCTION NOT USED SO THAT VALUES 


REM 


GREATER THAN 65535 CAN BE ACCEPTED. 


REM KKKKKKKKKKKKKKKKKKKKEK 


CHA 
PRI 
GOS 


R,4,10,"HEXADECIMAL NUMBER IS “ 
NT HS 
UB 1530:REM ANYKEY 


RETURN 
REMAAKAKAAAKKKKKKKKK KKK 


REM 


KKEKKKKKKKKKKKKKKKKKKE 


1000 REM BINARY TO DECIMAL 


1010 
1020 


ue 


1050°:: 
1040 : 
1050 : 
1060 : 
1070: = 
1080 : 
1090 : 
TOO": 
THIS: = 
fi a6 ae 


1130 = 


1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 


SCNCLR 
CHAR,10,3,''BINARY TO DECIMAL” 
CHAR, 10,4, XARARAKKAKAKKKEKKK RK 
CHAR,4,7,"WHAT IS THE BINARY NUMBER" 
CHAR,4,8,"": INPUT BS 
DC=0: BAD=0 
FOR N=1 TO LEN(BS) 
BIN=ASC (MIDS$(BS$,N,1))-48 
IF BIN<O OR BIN>1 THEN BAD=1:N=LEN(B$) 
D=BIN*2*(LEN(BS$)-N) 
DC=DC+D 
NEXT 


LOOP UNTIL BAD=0 


CH 
PR 
GO 


AR,4,11,"DECIMAL NUMBER IS" 
INT DC 
SUB 1530:REM ANYKEY 


RETURN 
REM x & kk i a I 


REMARAAAA AKA KKK KKK KEKE KEK 
REM DECIMAL TO BINARY 


DO 


1230 >: 
1240: = 
1290-5 


SCNCLR 
CHAR,10,3,"DECIMAL TO BINARY" 
CHAR , 10,4, "XR AKAKAKKAKKREKER 
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230 


1260 
1270 


1280 : 


1290 


1300 : 


1310 


1320 : 


1330 
1340 
1350 
1360 
13:70 
1380 


1390 : 
1400 : 


1410 
1420 
1430 : 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
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2. “CHAR 4,77 

> INPUT"WHAT IS THE DECIMAL NUMBER"; D$ 

BS=""":REM NO SPACE 

> BAD=0 

FOR N=1 TO LEN(DS) 

: DD=ASC (MIDS(D$,N,1)) 

IF DD<48 OR DD>57 THEN BAD=1:N=LEN(DS$) 

> NEXT 

LOOP UNTIL BAD=0 

DC=VAL(D$) 

REM XXKKKKKKKKKKKKKKKKEKKE 

REM CALCULATE LOOP (BIN) 

DO 

D=2*(DC/2-INT(DC/2)) 

IF DC<2 THEN D=DC 

> DC=INT(DC/2) 

> D=D+48:REM CONVERT D TO ASCII 
af CHRS(D)+BS 

LOOP UNTIL DC=0 

REM XAKKKKKKKKKKKKKKKKKKEK 

CHAR,4,10,"BINARY NUMBER IS" 

CHAR,4,11,"""=PRINT BS 

GOSUB 1530:REM ANYKEY 


RETURN 
REM Xk kK RR a I 


REM KAKKKKKKKKAKKKKKKKKKEKE 


REM ANYKEY 

PRINT:PRINT 

PRINT TAB(4)"PRESS ANY KEY TO GET MENU" 
GETKEY AS 


RETURN 
REMARKKA KARR KR RRR RIK KI KR I 


REMAX AKKKKKKKKKKKKKAKKKR 


Zo 
P85 Color codes for resistors 


This program could be useful in an electronics’ taboratory. 
It allows you to calculate the value of a resistor from its 
color code, or to calculate the color code from its value. 
The program deals only with resistors coded by color bands as 
shown below: 









COLOR 1 COLOR 3 


COLOR 2 TOLERANCE BAND 


COMMANDS 


Key in the program and RUN. 
Follow the instructions. 


10 REM COLOR CODES FOR RESISTORS 

20 REM KEXKKKKKKKKKKKKKKKKKKKKKE 

30 REM 

40 SCNCLR 

50 COLOR 0,12,7:REM PINK SCREEN 

60 COLOR 1,12:REM BLACK INK 

70 COLOR 4,12,7:REM PINK BORDER 

80 PRINT TAB(10)"RESISTOR COLOR CODES" 

90 PRINT TABC IO) KA KRKKKKKAKKKKKKKKER" 

100 PRINT: PRINT: PRINT 

110 PRINT TAB(4)"THIS PROGRAM MAY BE USED TO" 

120 PRINT TAB(4)"DETERMINE THE VALUE OF A RESISTOR" 
130 PRINT TAB(4)""FROM ITS COLOR CODE, OR TO" 

140 PRINT TAB(4)"DETERMINE ITS COLOR CODE FROM ITS" 
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150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 


S403 
55023 


360 
370 


* 380 : 
390 : 
400 : 


410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
320 
530 
540 
990 
360 


mya Cate 
580 : 
590 : 


600 
610 
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PRINT TAB(4)""RESISTANCE VALUE." 
DIM B$(12):REM HOLDS COLORS 

FOR N=O TO 12 

> READ A$:BS(N)=A$ 

NEXT 

REMAAKAKKAKKAKKKKKK KKK ER 

DATA BLACK,BROWN,RED,ORANGE , YELLOW 
DATA GREEN,BLUE,VIOLET,GRAY ,WHITE 
DATA GOLD,SILVER,NONE 

REME RK KKKKKKK KERR EK KKK 

GOSUB 1660°:REM ANY KEY 

REM 

REM 

REM 


REM 
REMA AA AAKAKKKKK KKK KERR 


REM KKK KKKKKKKKKKKKKKKKKK 


DO 
> SCNCLR:PRINT: PRINT: PRINT 


> PRINT:PRINT 
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PRINT TAB(4)"DO YOU WISH TO FIND RESISTANCE" 
PRINT TAB(4) "VALUE OR COLOR CODE?" 


> PRINT TAB(8)"PRESS KEY 1 FOR VALUE" 


PRINT 


PRINT 
>: PRINT TAB(8)"PRESS KEY 3 TO END" 


A=VAL(AS) 
> ON A GOSUB 560,1120 
LOOP UNTIL A=3 


END 
REM 
REM 
REM KKKKKK KKK KKK KKK 
REM * * 
REM x SUBROUTINES * 
REM * . 
REM Kk KKK KKKKK KR KKK 
REM 
REM VALUE 
DO 
SCNCLR 
PRINT TAB(12)''COLORS ARE?" 
PRINT 


>: FOR N=0 TO 9 
: PRINT,BS(N),"=";N 


PRINT TAB(8)"PRESS KEY 2 FOR CODE" 


DOSGETKEY A$:LOOP UNTIL AS=""1"" OR AS="2" OR AS="3" 
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Color codes for resistors 


NEXT 
PRINT:PRINT 
PRINT TAB(3)"ENTER THE THREE COLOR BANDS AS" 
PRINT TAB(3)"THREE NUMBERS FOLLOWED BY THE" 
PRINT TAB(3)"RETURN KEY." 
= PRINT: PRINT 
: PRINT TAB(3)"FOR EXAMPLE:" 
: PRINT TAB(3)"RED-BLACK-ORANGE=203" 
> PRINT 
> PRINT TAB(3);:INPUT"WHAT ARE THE COLORS";COL$ 
= REM CHECK ENTRY 
: FOR N=1 TO LEN(COLS) 
: D(N)=ASC(MID$(COL$,N,1))-48 
: IF D(N)<O OR D(N)>9 THEN F=1:N=3:ELSE F=0 
: IF LENCCOL$)<>3 THEN F=1 
NEXT 
LOOP UNTIL F=0 
REMAX KAKAKKAKAKKAKKKKKKKAK 
REM GET TOLERANCE 
SCNCLR 
PRINT: PRINT 
PRINT TAB(3)"THE THIRD BAND INDICATES" 
PRINT TAB(3)"TOLERANCE. THE ALTERNATIVES ARE:" 
PRINT: PRINT 
FOR N=10 TO 12 
PRINT,N-9,BS(N) 
NEXT 
PRINT: PRINT 
PRINT TAB(3)"ENTER 1,2 OR 3 TO SELECT" 
PRINT TAB(3)"TOLERANCE COLOR. ANY OTHER ENTRY" 
PRINT TAB(3)"WILL BE TREATED AS NO FOURTH" 
PRINT TAB(3)"BAND."' 
PRINT: PRINT 
PRINT TAB(3) 7: INPUT"SELECTION' TS 
IF T$<>"1" AND T$<>"2" THEN T$=''3" 
T=VAL(TS) 
T=TH5 
REMAKKAKAKAKKKKKKKAKKKKKKAK 


1000 REM CALCULATE RESISTANCE 

1010 RES=(DC€1)*10+D(2) )*10*D(3) 

1020 SCNCLR 

1030 PRINT: PRINT: PRINT 

1040 PRINT TAB(4)"'RESISTANCE 1S";RES;"OHM" 
1050 PRINT: PRINT: PRINT 

1060 PRINT TAB(4)"TOLERANCE IS";T;"Z%" 

1070 GOSUB 1660:REM ANY KEY 

1080 RETURN 


033 


P85 Color codes for resistors 


REMAX KKK KAKKKKAEKKKKKEKE 
REMKKKKKKKKKKKKKKKKKKKKK 


REM GET CODE 


DO 


SCNCLR 
PRINT: 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


PRINT 


FOR N= 


PRINT=PRINT 

TAB(4)"PLEASE ENTER RESISTANCE IN OHM." 
TAB(4)"PLEASE ENTER NUMBERS ONLY." 
TAB(4)""ANY OTHER SYMBOLS, INCLUDING" 
TAB(4) "DECIMAL POINTS WILL NOT BE" 
TAB(4)"ACCEPTED. PLEASE DO NOT START" 
TAB(4)"THE ENTRY WITH A ZERO." 


TAB(4)"RESISTORS WITH VALUES LESS THAN" 
TAB(4)"10 OHM OR GREATER THAN" 
TAB(4)"99000000000 OHM ARE NOT COVERED" 
TAB(4)"BY THIS PROGRAM." 

PRINT 

TAB(4);2INPUT'RESISTANCE VALUE IN OHM';RSTS 
1 TO LENCRSTS) 


T=ASCCMIDSC(RSTS$,N,1)) 


PE 
IF 
NEXT 


T>57 OR T<48-(N=1) THEN F=1T: ELSE F=0 
F=1 THEN N=LEN(RSTS) 


IF LENCRST$)>11 OR LENC(RSTS$)<2 THEN F=1 


LOOP UNTIL F=0 
REMARK A KK RAR KR RR KK KK KK 


REM GET TOLERANCE 


SCNCLR 


PRINT: 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


PRINT 


PRINT=PRINT 

TAB(4)"ENTER 1,2 OR 3 DEPENDING ON" 
TAB(4)""WHETHER THE TOLERANCE IS 5Z,102%" 
TAB(4)"0R 20% RESPECTIVELY." 


TAB(4)"ALL ENTRIES OTHER THAN 1 OR 2" 
TAB(4)"'WILL BE ASSUMED TO MEAN 20Z" 
TAB(4) "TOLERANCE." 

PRINT 

TAB(4);=2 INPUT"TOLERANCE (1,2 OR 3)";TLS 


IF TL$<>''1'"' AND TL$<>"'2" THEN TL$="'3" 
REM KKKAKKKKKEKKKKKKKKKKK 


REM DISPLAY BANDS 


SCNCLR 


PRINT: 


PRINT-=PRINT 


AC 1)=VALCLEFTSCRSTS$,1)) 
A(2)=VALC(MIDS(RST$,2,1)) 
A(3)=LENCRSTS)-2 
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1560 
1570 


1580 : 
1590 : 


1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 


A(4)=ASC(TL$)~39 

FOR N=1 TO 4 

PRINT TAB(4)"BAND":N;"IS",BS(AC(N)) 
PRINT 

NEXT 

GOSUB 1660:REM ANY KEY 

RETURN 


REE BRR Ik Ik 

RE MRR ak tk ae 

REM ANY KEY 

PRINT? PRINT: PRINT 

PRINT TAB(4)"PRESS ANY KEY FOR INSTRUCTIONS" 
GETKEY AS 

RETURN 


REM XX KK KKAKKKKKKKKKKKAKKK 
REMX KAKA KKAKKKKKKKKK KKK KK 
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P86 Volumes of solids 


This program calculates the volumes of spheres, cylinders and 
cones or pyramids. 


It could be extended to calculate the volumes of other 
regular solids. 


COMMANDS 


Key 1n the program and RUN. 
Follow the instructions. 


10 REM VOLUME OF SOLIDS 

20 REM KKKKKKKKKKKKKKKK 

30 REM 

40 SCNCLR 

50 COLOR 0O,15,1:REM DARK BLUE SCREEN 

60 COLOR 1,4:REM CYAN PRINT 

70 COLOR 4,15,1:REM DARK BLUE BORDER 

80 PRINT TAB(10)"VOLUMES OF SOLIDS" 

90 PRINT TABC1Q) xxx axa aaa kee” 

100 PRINT: PRINT: PRINT 

110 PRINT TAB(5)"'PRESS KEY 1 FOR SPHERE” 
120 PRINT 

130 PRINT TAB(5)"PRESS KEY 2 FOR CYLINDER" 
140 PRINT 

150 PRINT TAB(5)"'PRESS KEY 3 FOR CONE OR PYRAMID" 
160 PRINT 

170 PRINT TAB(5)"PRESS KEY 4 TO FINISH" 
180 GETKEY A 

190 IF A=4 THEN END 


200 SCNCLR 

210 ON A GOSUB 310,440,610 
220 RUN 

230 REM 

240 REM KKKKKKKKKKKKKKK 
250 REM * * 
260 REM * SUBROUTINES * 
270 REM x x 
280 REM KKKKKKKKKKKKKKK 


290 REM 


Volumes of solids 


REM SPHERE 

PRINT TAB(10)"*°VOLUME OF A SPHERE” 

PRINT TABOC10) Xx K KAKA KAKKKKKKKEK" 

PRINT: PRINT: PRINT 

INPUT''WHAT IS THE RADIUS";R 

PRINT: PRINT: PRINT 

VOL=4*[PI ]*R*R*R/3 

PRINT’THE VOLUME OF A SPHERE OF RADIUS";R 
PRINT: PRINT" IS"; VOL 

GOSUB 990 


RETURN 
REMARK KAKA KKK ARK KKK KK IKK KK 


REMKKKRAKKA KKK RK RR KK Ok 

REM CYLINDER 

PRINT TAB(9)"VOLUME OF A CYLINDER" 
PRINT TABC9) XARA ARAKKEKKKK KAR KK 
PRINT: PRINT: PRINT 

INPUT''WHAT IS THE HEIGHT";H 

PRINT: PRINT 

INPUT''WHAT IS THE BASE RADIUS";R 
PRINT: PRINT: PRINT 

VOL=[PI ]*R*R*H 

PRINT''THE VOLUME OF A CYLINDER OF” 
PRINT 

PRINT'BASE RADIUS";R;""AND HEIGHT";H 
PRINT: PRINT" IS"; VOL 

GOSUB 990 


RETURN 
REMARK AK AKA KK KKK KKK RK RK ERK EK 


REMAKAAKKAK KKK KARR KKK RRR K 

REM CONE 

PRINT TAB(11)"*VOLUME OF A CONE" 

PRINT TAB(C11) xe kaka aaa KR KKK KK" 

PRINT: PRINT = PRINT 

INPUT''DO YOU KNOW THE BASE AREA (Y/N)";YS 

IF ASC(Y$)=89 THEN GOSUB 1060:GOSUB 830:ELSE GOSUB 690 


RETURN 
REM RK I IR IO IR ROR I 


REM Ak RRR KR IIR KR ROI IK 

PRINT: PRINT 

PRINT'SELECT BASE SHAPE BY PRESSING:" 
PRINT 

PRINT'KEY 1 FOR EQUILATERAL TRIANGLE” 
PRINT TAB(4)"2 FOR SQUARE" 

PRINT TAB(4)""3 FOR CIRCLE" 

PRINT 

DO:GETKEY B:LOOP UNTIL B<4& AND B>0 


aol 
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770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
a ela) 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
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ON B GOSUB 1120,1180,1240 
GOSUB 830 


RETURN 
REMAAAKAAKKAKAKK KKK KKKAK A KKK 


REMAAKAKAKKKAKKKKKKKKKKKK KKK 


REM CONE VOLUME 

SCNCLR 

PRINT TAB(11)"VOLUME OF A CONE" 
PRINT TABC 11) xxxrxxxxkk aka! 
PRINT: PRINT: PRINT 

INPUT"WHAT IS THE HEIGHT" ;H 
PRINT: PRINT: PRINT 

PRINT THE VOLUME OF A CONE OF BASE" 
PRINT 

PRINT'AREA"’;AR;"'AND HEIGHT" ;H 
PRINT 

PRINT" IS" sAR*H/3 

GOSUB 990 


RETURN 
REM & AKA RK 


REMAAKKAKKKKKKKKKKKKKKKKK KKK 


REM ANY KEY 
PRINT: PRINT: PRINT 

PRINT''PRESS ANY KEY TO RETURN" 
GETKEY A$ 


RETURN 
REMKAK AKA KKK KKKKKKKKKKKKIAKEK 


REMAAKAAKKKAKKKKKKK KAKA KK RK 


REM GET BASE AREA 
PRINT: PRINT 
INPUT''WHAT IS THE BASE AREA";AR 


RETURN 
REMAAKAAKAAKKKRAKAR KK AR KKK 


REM A AK AK IK RK 
REM TRIANGLE 

INPUT''LENGTH OF SIDE OF TRIANGLE";S 
AR=.5*S*S*SINC([PI ]/3) 

RETURN 

REM 1 RA I I II TOI I I IO 

REMA AKA KARR RK KA KAKI IK KR IK 

REM SQUARE 

INPUT'LENGTH OF SIDE OF SQUARE'';S 
AR=SxS 

RETURN 

REM AA KARRI IIR IK A IK 

REM Ra RA IO III Aa 


Volumes of solids 
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1230 REM CIRCLE 

1240 INPUT"RADIUS OF CIRCLE";R 
1250 AR=[PI ]*R*R 

1260 RETURN 

1270 REMKKKKKKAAKKAKK KK KKK KKK KKK 


1280 REM KK KAA KKAKAKKK KKK KK KKK KKK 
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P87 Physics experiment 1 — 
moment of inertia 


The next two programs are an attempt to show how a micro 
could be used within a physics laboratory to take some of the 
drudgery out of experimentation. 


The programs are based on two experiments in F. Tyler's "A 
Laboratory Manual of Physics”, Edward Arnold, 1966. 

COMMANDS 

Use WORK SHEETS and programs to perform the experiments. 


EXPERIMENT 1 - MOMENT OF INERTIA 


Work Sheet 1 


Determination of the moment of inertia of a flywheel 
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Apparatus 


Wall supported flywheel of standard pattern: a weight is 
attached to a length of fine cord which is wrapped round the 
axle, the free end being passed through a hole in the axle. 
The tength of the cord is adjusted so that the cord detaches 
itself from the axle when the weight reaches the ground. 
Callipers, stop watch, meter rule. 


Method 


The value of m is obtained by weighing; the radius r of the 
axle is found by-using callipers. 


The weight (m) is allowed to fall through a measured distance 
(s) to the ground, and the time of descent (t) is taken by a 
stop-watch. The number of revolutions (n) of the wheel 
during this time is taken by observing a mark made on the 
circumference of the wheel at P. The further revolutions (p) 
made by the wheel before coming to rest after m is detached 
are also counted by reference to the mark P. The experiment 
is repeated three times for the same distance (s). 


Perform the experiment as follows: 


Power on microcomputer. 

Load program. 

Take measurements m, r and s. 

RUN the program. 

Perform the experiment as directed, and enter values as 
prompted. 


10 REM MOMENT OF INERTIA 

20 REM xKxxxkxkkKKKKK KKK 

30 REM 

40 COLOR 0,8,5:REM YELLOW SCREEN 

50 COLOR 1,1:REM BLACK INK 

60 COLOR 4,3,2:REM RED BORDER 

70 SCNCLR 

80 PRINT: PRINT 

90 PRINT TAB(10)CHRS$(18)"-------------------- 
100 PRINT TAB(10)CHR$(18)'"' MOMENT OF INERTIA " 
110 PRINT TAB(10)CHRS$( 18)" OF A - 
120 PRINT TAB(10)CHRS( 18)" FLYWHEEL a 
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PRINT TAB(10)CHRS$( 18)"-------------------- H 
PRINT 


PRINT TAB(10)"PHYSICS EXPERIMENT 1” 
PRINT TAB(10)"--9---- oo --------- ’ 


PRINT 

PRINT TABCIODCHRS C10) "===<s925-=-—==>=--==- 

PRINT TAB(10)CHR$( 18)" SEE WORK SHEET : 

PRINT TABCIO)CHRS C10) S252 S-244=——=-5---=> 43 
PRINT: PRINT: PRINT 

PRINT TAB(6)CHR$(18)'' PRESS ANY KEY TO CONTINUE " 
GETKEY A$ 


REM kk KKK RK KK RIK KK ek kk KK 


DO 


R=0:M=0:S=0 
SCNCLR: PRINT: PRINT 
DO 


PRINT TAB(4); 
INPUT'RADIUS OF AXLE (METERS)";R 
LOOP UNTIL R>O 
PRINT 
DO 
PRINT TAB(4); 
INPUT'MASS OF WEIGHT (KG)"';M 
LOOP UNTIL M>O 
PRINT 
DO 
PRINT TAB(4); 
INPUT" DISTANCE TO GROUND (METERS)";S 
LOOP UNTIL S>O 
REM &KAKKKKKKKKK KK KK KKKKEE 
TT=0: NN=0: PP=0 
FOR K=1 TO 3 
T=0: N=0: P=0 
SCNCLR: PRINT: PRINT 
PRINT TAB(10)CHR$( 18)" PERFORM EXPERIMENT "' 
PRINT: PRINT 
PRINT TAB(17)"RUN' 7K 
PRINT TA8(17)"'===== 
PRINT 
DO 
PRINT TA8( 10); 
INPUT’TIME (SECS)">T 
LOOP UNTIL T>O 
PRINT 
DO 
PRINT TA8( 10); 
INPUT'N (REVS)";N 
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OPCc-Qq 


LOOP UNTIL N>O 

PRINT 

DO 

PRINT TAB(10); 
INPUT''P (REVS)";P 

LOOP UNTIL P>O 

TT=TT+T: NN=NN+N: PP=PP+P 
NEXT 
REM KXAKKKAKAKKAKKKAKKAKKKEK 
T=TT/3:N=NN/3:P=PP/3 
G=9.812:REM ACCELERATION DUE TO GRAVITY 
IT=MARAR*(G*TAT/2/5-1)*CP/ (PHN) ) 
IT=INT(1T*100+.5)/100 
ITS=MIDS(STRS(IT),2):1F IT<1 THEN ITS="0"'+ITS 
SCNCLR2PRINT:PRINT:PRINT=PRINT 
PRINT TAB(10)"‘MOMENT OF INERTIA ="' 
PRINT 
PRINT TAB(10)ITS"' KG-(METER)*%2" 
PRINT TAB(10)"------------------- 2 
REM KAKA AKKKKAKKAAKKKKKAKKK 
PRINT: PRINT 
YSo" N° 
PRINT TAB(7); 
INPUT"ANOTHER EXPERIMENT (Y/N)'";Y$ 


Loop UNTIL ASC (Y$)<>89 


END 


REM KAKAKKAAKKKKAKKKKAKEKEEK 
REMKAKAAKAKAKAKKKKAKKAKKKKK 
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P88 Physics experiment 2 — 
focal length 


Work Sheet 2 


Determination of the focal Length of a concave mirror 








Appar atus 


Concave mirror in stand, two retort stands with clamps and 
pins, meter rule. 


Method 


The object pin 0 is placed a given distance (u) from. the 
concave mirror. The position of the image I formed by 
reflection in the mirror is located by the method of 
non-parallax using the second pin (locating pin LP). The 
distance (v) of the Locating pin from the mirror is measured. 
QO and I are said to be conjugate points. A series of values 
of v for a given range of values of u are obtained. 


The computer program is used to calculate the focal Length of 
the mirror from each measurement. The average of these 
values, and their standard deviation, are calculated and 
presented on the screen. 


P88 Physics expenment 2 — focal length 


REM 
REM 
COLOR Q,8,5:REM YELLOW SCREEN 

COLOR 1,12REM BLACK INK 

COLOR 4,3,2:REM RED BORDER 

SCNCLR: PRINT 

PRINT “TABCIZ)CHRSC 18) == ==—===--=-=-—-e— . 
PRINT TAB(12)CHR$(18)"" FOCAL LENGTH " 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


PRINT: 


REM FOCAL LENGTH 


KKKKKKKKEKKE 


TAB( 12) CHRS( 18)" OF A “ 
TAB(12)CHR$( 18)" CONCAVE MIRROR " 
TAB( 12) CHR$( 18) "----~------------ " 


TAB(10)""PHYSICS EXPERIMENT 2" 
TAGUIO) loeaaaee saeco eee eee 


TAB(12)CHR$( 18) "---------------- " 
TAB(12)CHR$(18)" SEE WORK SHEET " 
TAB( 12) CHR$( 18) "---------------- " 
PRINT 


REMXKKXKKKKKKKKKKKKKKKEEKE 


DO 


PRINT TAB(9); 
INPUT"HOW MANY MEASUREMENTS" ;MEASZ 
LOOP UNTIL MEASZ>0 


REMKKKKKKKKKKKKKKKKEKKEEKKR 


FOR N= 


1 TO MEASZ 


SCNCLR: PRINT: PRINT 
PRINT TABC13) "MEASUREMENT" N 
PRINT=PRINT 


DO 


PRINT TABC16)7=2INPUT'U = "7U 


LOOP UNTIL U>0 
PRINT 


DO 


PRINT TAB( 16): INPUT"V = ">V 


LOOP UNTIL V>0 
T=1/01/V#1/U) 


SM= 
SQ= 
NEXT 


SM+t+T 
SQ+TAT 


REMKAKAKKAAKKKKAAKKRRK EK 
SCNCLR=PRINT:PRINT 
MN=SM/MEASZ 
DV=SQR(SQ/MEASZ-MN*MN) 


PRINT 
PRINT 


TAB(4)"AVERAGE FOCAL LENGTH ="';MN 
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480 PRINT TAB(4)"STANDARD DEVIATION ="'7DV 

490 PRINT: PRINT 

500 PRINT TAB(4):INPUT''WANT TO REPEAT THE EXPERIMENT; YS 
510 IF ASCCY$)=89 THEN RUN 


520 REM KKK KKKKEKKKKKKEKKKEKKKEKE 
530 REM KKK KKKKKKKKKKEKKEKKKEKKR 


O41 
P89 Resistors 


This program computes the resultant resistance of an electric 
circuit of the following type: 


COMMANDS 


Key in the program and RUN. 
Follow the instructions, entering the resistance values as 
required. 


10 REM RESISTORS 

20 REM xxxekkkkx 

30 REM 

40 SCNCLR 

50 COLOR 0,1:REM BLACK SCREEN 

60 COLOR 1,8:REM YELLOW INK 

70 COLOR 4,1:REM BLACK BORDER 

80 PRINT 

90 PRINT TAB(15)"RESISTORS" 

100 PRINT? PRINT: PRINT 

110 PRINT TAB(5)'"'THIS PROGRAM COMPUTES THE TOTAL" 
120 PRINT TAB(5)"RESISTANCE OF A CIRCUIT" 

130 PRINT TAB(5)''CONSISTING OF SEVERAL BRANCHES" 


P89 —- Resistors 


PRINT TAB(5)"CONNECTED IN PARALLEL, EACH" 
PRINT TAB(5)"BRANCH CONSISTING OF ONE OR" 
PRINT TAB(5)'"'MORE SERIES RESISTORS." 
PRINT: PRINT: PRINT 

PRINT TAB(5)"PRESS ANY KE¥ TO CONTINUE" 
GETKEY A$ 


REMAKKKAAKKKKKKKKKKKEKK 
REM KAKA KAAKKKKKAKKKKKEKK 


REM ANOTHER 


CLR 
SCNCLR 
DO: INPUT''NUMBER OF BRANCHES"';BRZ:LOOP UNTIL BRZ>0 


DIM R(BRZ) 


REMkkxkkakkkakkkak kkk 
REMAkkKkAKKAKKKKKKKK AKER 

FOR N=1 TO BRZ 

GOSUB 670:REM PRINT BRANCH NUMBER 

DO: INPUT''NUMBER OF RESISTORS";RSZ:LOOP UNTIL RSZ>0 
REMkkkxakkkkkkkk kk kkkke 

REMKxxkAAKKKKKKKKKKAKKEK 

GOSUB 670:REM PRINT BRANCH NUMBER 

FOR K=1 TO RSZ 

DO:PRINT"'VALUE OF RESISTOR" sK;2 INPUT VL:LOOP WHILE VL<O 
REMAkkKkAKKAKKKKKKKKKKEKK 

GOSUB 670:REM PRINT BRANCH NUMBER 

RCN) =RON)#FVL 

NEXT 

IF R(N)=O THEN ZER=1:N=BRZ: ELSE CN=CN+1/R(N) 

REM ADD CONDUCTANCES UNLESS ZERO RESISTANCE BRANCH 
NEXT 


REMKKKKKKKKKKKAKKKKKKKEK 

REMKKKKKKKKKKKKKKKK KKK 

IF ZER=1 THEN TTL=O:ELSE TTL=1/CN:REM TOTAL RESISTANCE 
REM DISPLAY TOTAL RESISTANCE 
SCNCLR 

CHAR,9,9,''TOTAL RESISTANCE IS" 
PRINT 

PRINT TABC9) TTL;"OHM" 

PRINT TAB(9)'ssssssssssssss===5 
CHAR,9,18,°°" 

INPUT"ANOTHER CIRCUIT"; YS 

IF ASCCY$)=89 THEN 230: REM ANOTHER 

REM CANNOT USE DO LOOP CONTAINING CLR INSTRUCTION 
END 
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580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690. 
700 
710 
720 
730 


REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 


ka K KKK KKK KKK 


SUBROUTINES 


+ + + + 


kkk KKK KKK KKK 


REM PRINT BRANCH NUMBER 


SCNCLR 


PRINT:PRINT:PRINT 
PRINT TAB(15)"BRANCH";N 


PRINT: PRINT 
RETURN 


REMKKKKKKKKKKKKKKKRKKKKK 
REM XK KRKKKKKKKKKKKKKKKKK 


+ + FF 
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P90 Calculator 


There are many occasions when you need the capability of a 
simple calculator rather than a complex computer. This 
program simulates a simple four’ function  (+,-,%*,/) 
calculator. 


The program could be expanded to provide memory-add, 
memory-subtract and memory-read features. 


COMMANDS 


Key in the program and RUN. 

Use the numeric keys and +, -, * and / to perform arithmetic. 
Use '." for decimal point and '=" to get final answer. Use 
the C, A, and S keys as instructed. 


10 REM CALCULATOR 

20 REM xxxxaxxxxx 

30 REM 

40 COLOR 0,8,5:REM YELLOW SCREEN 

50 COLOR 1,7,1:REM BLUE INK 

60 COLOR 4,9,3:REM ORANGE BORDER 

70 UPS=CHR$(145):2REM UP CURSOR 

BO REM KX KAKA KKKKKEKKKKKKK 

90 SCNCLR 

100 PRINT: PRINT: PRINT 

110 PRINT TAB(14)CHRS(18) "CALCULATOR" 
120 PRINT:PRINT: PRINT 

130 PRINT TAB(7)"KEY C CLEARS CURRENT ENTRY" 
140 PRINT 

150 PRINT TAB(7)''KEY A CLEARS ALL ENTRIES" 
160 PRINT 

170 PRINT TAB(7)"KEY S STOPS PROGRAM" 
180 PRINT: PRINT: PRINT: PRINT 

19D REMXRKKKRKKKKKKKKKKKKK KKK 

200 SS=CHRS$(32)2:REM SPACE 

210 FOR N=0 TO 4 

220 : S$=S$+S$ 

230 NEXT: 

240 REM S$ CONTAINS 32 SPACES 

250 ES="""2REM NO SPACE 


Calculator 


REM AA I Ok 
REM CLEAR ALL 


AS=ES: FS=ES:2R=0 

REMAX KARR KKK IR ITOK IK 

REM REPEAT 

DO 

> GETKEY BS 

5 REM Ak dk 

> REM DECODE 

> IF ASC(BS)>47 AND ASC(BS)<58THEN GOSUB 550 
> IF BS$="."' THEN GOSUB 550 

> IF BS$="+" OR BS="-" OR BS="*" THEN GOSUB 640 
>: IF BS="/"' OR BS="="" THEN GOSUB 640 

> IF BS="A" OR BS="'C"' THEN GOSUB 790 

> IF BS="A" THEN AS=E$: FS=E$:R=0 

LOOP UNTIL B$="'S" 

END 

REM 


REM Ok kk kk 
REM ok I I ki ak 
REM FO IO I IO kk 


REM * * 
REM * SUBROUTINES « 
REM * * 
REM TTT TT TT TTL TTT 
REM 

REM] OR a 
REI] IO ok 


REM NUMBER OR DECIMAL POINT 

IF F$="="" THEN R=O0:AS=E$:FS=ES 
AS=AS+BS 

IF LENC(A$)>8 THEN AS=LEFT$(AS$,8) 
PRINT UPS+SS$:PRINTUPS+UP$ 

PRINT TAB(21-LENCAS$)) AS 


RETURN 
REM kk kk 


REM 2k RIO ak 


REM OPERATOR 

BAD=0:REM USED TO TEST FOR DIVISION BY ZERO 

IF F$="+" OR FS=ES THEN R=RtVAL(AS) 

IF F$="-" THEN R=R-VAL(AS) 

IF F$="*" THEN R=R*VAL(AS) 

IF FS$="'/" AND VAL(CAS)<>0 THEN R=R/VAL(AS) 
PRINT UPS$+S$:PRINT UPS+UP$ 

IF FS="/" AND VALCA$)=0 THEN BAD=1 

IF BAD=O THEN FS$=BS:PS$=F$ 

IF BAD=O AND FS="="" THEN P$=CHRS( 146)+CHRS$(32) 


aul 


PgQ 


PRINT TAB(21~LENCSTRS(R)))R;TAB(33) CHRS(18)+PS 
AS=E$ 

RETURN 

REMAKAKKAKKKKKKKAKKKK ERK 
REMAKRAKAKARA KK KAR KK KK 

REM CLEAR 

PRINT UP$+S$ 

IF BS="A" THEN PRINT TAB(33)UP$+CHRS(32) 
AS=E$ 

RETURN 

REMARK AAA R RK RK RK 
REMAKKAKKKKKKKKAAK KAKA KK 


Calculator 
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P91 Coordinate conversion 


It can happen quite often that you have points plotted on a 
graph in the rectangular (x,y) format and wish to convert the 
co-ordinates of these points to the polar (r,6) format, or 
vice versa, as in the following figure: 


y-axis 


X-Axis 





The conversion formulae are: 


x=r*C0S(6) 
y=r*SIN(6) 
r=x*2ty%2 
@=ARC TAN(y/x) 


This is a demonstration program and the formulae used are 
accurate only for the first quadrant. The special case when 
x=0 has not been dealt with, nor has any ‘trap’ been set for 
entry of negative values of r. The program, extended to 
incorporate all these features, could be a valuable tool for 
mathematicians. 


COMMANDS 


Key in the program and RUN. 
Follow the instructions. 
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10 REM COORDINATE CONVERSION 

20 REM KKKKKKKKKKKKKKKKKEK ER 

30 REM 

40 COLOR 0,2:REM WHITE SCREEN 

50 COLOR 1,7,1:REM BLUE INK 

60 COLOR 4,9,1:REM BROWN BORDER 

70 SCNCLR 

80° CHAR 12,5,-CHRSC 18) + 2-3 -<----=— - 
90 CHAR,12,6,'" COORDINATE “ 

100. CHAR, 1237,-- af 

110 CHAR,12,8,'' CONVERSION " 
120::ChAR; 12.9. ‘ 

130 CHAR,6,18,°' PRESS ANY KEY TO CONTINUE “ 
140 GETKEY AS 

150 REMKKKKK KK KKKKKKKKKKKK KK KKK 

160 PRINT CHR$(146):REM REVERSE OFF 
170 GOSUB 750:REM DEGREES OR RADIANS 
180 REM KKKKAKKKKKKKKKKKKKKKKK KK 


190 REM MENU 


200 DO 

210 = dO 

220 : SCNCLR 

230 : CHAR,4,6,"KEY 1. RECTANGULAR TO POLAR" 
240 : CHAR,4,8,"KEY 2. POLAR TO RECTANGULAR" 
250 : CHAR,4,10,"KEY 3. STOPS THE PROGRAM" 
260 : CHAR,4,15, 

270° INPUT"ENTER YOUR CHOICE (1,2 OR 3)"';C$ 
280 =: CZL=ASC(C$)-48 

290 : LOOP UNTIL CZ%>0 AND CZ%<4 

300 : ON C% GOSUB 410,580 

310 LOOP UNTIL CZ%=3 

320 END 

330 REM 

340 REM KKKKKKKKKKKKKKK 

350 REM * * 

360 REM x SUBROUTINES * 

370 REM * * 

380 REM KKKKKKKKKKKKKKK 

390 REM 

400 REM RECTANGULAR TO POLAR 

410 SCNCLR 


420 CHAR,8,6,"'Z INPUT"WHAT IS X-COORDINATE";X 
430 CHAR,8,8,""': INPUT'WHAT IS Y-COORDINATE"';Y 
440 R=SQR(X*X+Y*Y) 

450 A=ATNCY/X) 


P91 Coordinate conversion B00 


460 CHAR,0,13,"" 

470 PRINT TAB(8)"RADIAL VALUE =">R 

480 PRINT 

490 PRINT TAB(8)"'ANGLE =""FNA1(A);TS 

500 PRINT: PRINT 

510 PRINT TABC12)CHRS(18)"PRESS ANY KEY"; 
520 GETKEY A$ 

530 GOSUB 900 

540 RETURN 


550 REM RKKKKKKKKKKKKKKKEKKKEKKKK 
560 REMAX KAR RR Rk kk Kk 


570 REM POLAR TO RECTANGULAR 

580 SCNCLR 

590 CHAR,8,6,""ZINPUT"WHAT IS RADIAL VALUE';R 
600 CHAR,8,8,"":INPUT"WHAT IS ANGLE'3A 
610 A=FNA2(A) 

620 X=R*COS(A)2Y=R*SINCA) 

630 CHAR,0,13,""' 

640 PRINT TAB(8)"X COORDINATE ="5X 

650 PRINT 

660 PRINT TAB(8)"Y COORDINATE =";Y 

670 PRINT:PRINT 

680 PRINT TAB(12)CHR$(18)'"PRESS ANY KEY"; 
690 GETKEY A$ 

700 GOSUB 900 

710 RETURN 


720 REMKXKKKKKKKK KK KK RIK RK 
730 REMKXAKAKKKRKKKA KR ok kok 


740 REM SELECT DEGREES OR RADIANS 


750 DO 

760 =: SCNCLR 

770 = CHAR,4,6,"D0 YOU WISH ANGLES TO BE IN:"’ 
780 = CHAR,12,8,''1. RADIANS?" 

790 = CHAR,12,10,"'2. DEGREES?" 

800 : CHAR,4,13,'" 

810 : INPUT’WHAT IS YOUR CHOICE (1 OR 2)";BS$ 
820 : B=ASC(B$)-48 


830 LOOP UNTIL B=1 OR B=2 

840 IF B=1 THEN DEF FNA1(A)=A:DEF FNA2(A)=A2 TS=""RADIANS" 

850 IF B=2 THEN DEF FNA1(A)=A*180/[PI ]:DEF  FNA2(A)= 
Ax[PI ]/180:TS="DEGREES" 

860 RETURN 


870 REMKKKKKKKKKKKKKKKKKKKKKKKK 
BBO REMKKAKKKKKKKKKAKKEKKKKKKKKE 
890 REM ALTER ANGLE UNITS 

900 SCNCLR 

910 PRINT CHRS( 146) 


206 Pol 


920 CHAR,4,10,"" 

930 INPUT''WANT TO ALTER ANGLE UNITS"; Y$ 
940 IF ASC(Y$)=89 THEN GOSUB 750 

950 RETURN 


GEO REMKKKKKKAKAK KKK KA KKK KA KK 
970 REMK KK ARR RR KKK KR ok 


Coordinate conversion 
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P92 Vector multiplication 


This is a rather simple program which can be used to find the 


dot and cross products of vectors. The vectors’ used 
only three components. 


The program would have been more complex if it had 
written for general vectors. We believe, however, that 
is a useful routine to have in any program Library. 


COMMANDS 


Key in the program and RUN. 
Enter vectors when prompted. 


10 REM VECTOR MULTIPLICATION 

ZO REM KeKKKKKKKKKKKKKKKKKKEK 

30 REM 

40 COLOR 0,2:REM WHITE SCREEN 

50 COLOR 1,1:REM BLACK INK 

60 COLOR 4,15,1:REM BLUE BORDER 

70 SCNCLR 

80 CHAR,9,2,"VECTOR MULTIPLICATION" 

90 CHAR, 9,3, [RR KKK KKKKKKKKKEKKEKK KKK 

100 CHAR,4,6,"THIS PROGRAM COMPUTES BOTH THE" 
110 CHAR,4,7,"DOT AND THE CROSS PRODUCTS OF" 
120 CHAR,4,8,"TWO VECTORS." 

130 CHAR,4,10,"'THE VECTORS ARE ENTERED IN" 

140 CHAR,4,11,"“COMPONENT FORM AND THEIR PRODUCTS" 
150 CHAR,4,12,"'ARE THEN GIVEN." 

160 CHAR,4,14,""THE VECTORS MUST BE IN 3D SPACE." 
170 CHAR,4,17,"PRESS ANY KEY TO CONTINUE." 

180 GETKEY A$ 

19D REM RRAKKK RK KKK KKKKKKKKKKKKKKKER 

200 DO 

210 FOR N=0 TO 2:U(N)=0:V(N)=0: NEXT 

220 SCNCLR 

230 CHAR,4,4,"ENTER COMPONENTS OF FIRST VECTOR" 
240 CHAR,0,7,'" 

250 FOR N=0 TO 2 

260 PRINT TAB(8) "COMPONENT" sN+1>2 INPUT UCN) 

270 PRINT 


have 


been 
this 


P92 Vector multiplication 


NEXT 
REN RII IOI I IK I Ik 
SCNCLR 

CHAR,4,4,"ENTER COMPONENTS OF SECOND VECTOR” 
CHAR,O,7,"" 

FOR N=O TO 2 

PRINT TAB(8)"COMPONENT'' ;N+1;2> INPUT V(N) 
PRINT 

NEXT 

REM AR III OR II IK 
REM DOT PRODUCT 

D=0 

FOR N=O TO 2 

D=D+UCN) *V(N) 

NEXT 

REE I III II IOI IORI ak 
REM CROSS PRODUCT 
W(O)=UC 1) *V(2)-UC2) *V 01) 
W(1)=UC2)*V(0)-U(O) *V(2) 
W(2)=UC0) *V(1)-UC1) *V 00) 

REIN I IO IR IORI RIO 
DEF FNACX)=INTCX* 100+ .5 )/100 
SCNCLR: PRINT: PRINT 

PRINT TAB(13)"CROSS PRODUCT” 


PRINT TAB 13) XR xxAKKRK KKK” 

PRINT 

PRINT TAB(4)"VECTOR 1"SPC(4)"VECTOR 2°°SPC(4)"PRODUCT"’ 
PRINT TAB(4)"-------- "SPC(4) "en -nnnn- "SPC (4) "------- 
FOR N=O TO 2 

UCN)=FNACUCN)) 


V(N)=FNACV(N)) 

WON)=FNACWC(N)) 

PRINT TAB(4) sU(N);TAB(16);V(N);TAB(28) ;WON) 
NEXT 

PRINT: PRINT: PRINT 

PRINT TAB(14)"DOT PRODUCT” 

PRINT TAB( 14) x88 x xR a ie” 

PRINT 

PRINT TAB(8)"DOT PRODUCT IS ";FNA(D) 

PRINT: PRINT: PRINT 

PRINT TAB(8):INPUT"ANOTHER PRODUCT (Y/N)";Y$ 
LOOP UNTIL ASC(Y$)<>89 


END 
REMARK KIO IOI III IO 


REM ROI RR III IIA II 
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P93 Quadratic equations 


In this program we have to solve: 


Ax*2 + Bx + C = 0 GE) 


To do this we use the formula: 


x = (-B + SQR(B*B - 4*A*C))/2/A (II) 


This gives the two roots of (I). There are, however, some 
problems: 


Aes If A=O we have division by zero in equation (II). 
In this case the solution is x = C/B. 


rae If BxB - 4*A*C = QO we have only one root. 

-In this case the solution is x = -B/(2*A). 
Si If B*B - 4*A*C < 0 we have complex roots. 
COMMANDS 


Key in the program and RUN. 
Enter the coefficients in the correct order when prompted. 


10 REM QUADRATIC EQUATIONS 

20 REM KKAKKKKAKKKKAKAKKKKKK 

30 REM 

40 COLOR 0,2:REM WHITE SCREEN 

50 COLOR 1,12REM BLACK INK 

60 COLOR 4,7,1:REM BLUE BORDER 

70 SCNCLR 

80 PRINT: PRINT: PRINT 

90 PRINT TAB(11)"’'QUADRATIC EQUATIONS" 
100 PRINT TABC11)"=======sss225ss5222"' 
110 PRINT>PRINT 

120 PRINT TABC4)"*THIS PROGRAM SOLVES EQUATIONS OF" 
130 PRINT TAB(4)"'THE FORM:" 


OPC-R 


P93 Quadratic equations 


PRINT 

PRINT TAB(13)"'A*X*2+B*X+C=0" 

PRINT 

PRINT TAB(4)"ENTER THE THREE PARAMETERS IN THE" 
PRINT TAB(4)"CORRECT ORDER." 

PRINT 

PRINT TAB(4):INPUT"COEFFICIENT OF X*2 (A)="7A 
PRINT TAB(4): INPUT'COEFFICIENT OF X (B) =";7B 
PRINT TAB(4): INPUT'CONSTANT TERM (C) = SC 
IF A=O AND B=0O THEN RUN:REM NOT A SENSIBLE CONDITION 
REMKAKKKKKKKKKKKKKKKKKKKK KK K KKK 

IF A<>O THEN AS=STRS(A)+'*X*%2" 

IF B>O THEN BS=MIDS(STRS(B) ,2)+'*X" 

IF ASO AND B>O THEN BS$="+'"'+BS 

IF B<O THEN BS=STRS(B)+t"*X"' 

IF C>O THEN CS$="+"'+MIDS(STRS$(C),2) 

IF C<O THEN C$=STRS$(C) 

ES=AS+BSt+C$+"=0" 

PRINT 

PRINT TAB(4)"EQUATION IS “ES 

PRINT 

PRINT TAB(4):INPUT"IS THIS CORRECT (Y/N)";YS 

IF ASC(Y$)<>89 THEN RUN 

REM KKKKKK KKK KKK KKKKKKKKKK KKK KK 
SCNCLR:PRINT: PRINT: PRINT: PRINT 

PRINT TAB(4)"EQUATION IS “ES 

PRINT: PRINT 

F=0 

IF A=O THEN PRINT TAB(4)"SOLUTION IS: X =''s-C/B: F=1 
REMAKKKKKKAKKKKKKKKKKKKKKKE KK AK 

DO WHILE F=0 

* D=B*B-4*A*C2REM DISCRIMINANT 

: IF D=0 THEN GOSUB 670 

IF D>O THEN GOSUB 730 

IF D<O THEN GOSUB 810 

> -F=1 

LOOP 
REMKAKKKKKAKKAKKKKKKKKKKK KK KK KA 

PRINTIPRINT TABQ) kkk kkk kkk KK KKK 
PRINT:PRINT: PRINT 

PRINT TAB(4): INPUT"WANT TO SOLVE ANOTHER CY/N) "YS 
IF ASCCY$)=89 THEN RUN 


END 
REM 1 I I I KK II I I HH I He 


REM AKKAKKKKAAKKKAKKKKKKKKKKEKER 


Quadratic equations 


REM 

REM KAEKKKKKKKKKKKKK 
REM x x 
REM * SUBROUTINES * 
REM x * 
REM KEKKKKKKKKKKKKK 
REM 


REM EQUAL ROOTS 

PRINT TAB(4)"WE HAVE EQUAL ROOTS" 

PRINT: PRINT 

PRINT TAB(4)"'THE SOLUTION IS: X =''s-B/2/A 
RETURN 

REM RII IO IO Ok 

REM REAL ROOTS 

PRINT TAB(4)"WE HAVE TWO REAL ROOTS" 
PRINT>PRINT 

PRINT TABC4)"ROOT 1 IS: X =";(-B+SQR(D))/2/A 
PRINT 

PRINT TAB(4)"ROOT 2 IS: X =";(-B-SQR(D))/2/A 
RETURN 

REM I RR I II II IOI IO 

REM COMPLEX ROOTS 

PRINT TAB(4)"WE HAVE COMPLEX ROOTS" 

PRINT: PRINT 

PRINT TABC4)"ROOT 1 IS:"' 


PRINT TAB(4)"X ="3-B/2/A;"+1*("sSQR(-D)/2/Az")" 


PRINT 
PRINT TAB(4)"ROOT 2 IS:" 


PRINT TAB(4)"X =";-B/2/A;"-1*(";SQR(-D)/2/A;")" 


RETURN 
REM 7 kk ki tok 


REM 8k kK KOI Ok ak 
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P94 Factorization 


This program finds the prime factors of positive integers. 
Any positive integer N may be expressed in terms of prime 
numbers and indices. The index of a prime number is the 
power to which that number is raised in the factorization of 
N. 


For example: 
180° > 272-* 372% 5 


We use a method of repeated division to find the set of 
factors for N. 


Let us consider an example - find the prime factors of 180. 
The first possible factor of 180 is 2, and we can write: 

180 = 2%*90 = 2%*2*45 
Thus 2 is a factor of 180 and of 90, but it is not a_ factor 
of 45. That is to say that dividing 45 by two gives a 
remainder which is not zero. 
We can now try 3: 

180 = 2%2%3%15 = 2%2%3%3%5 


Trying the next prime, 5, gives a result on division of 1. 
This indicates that all the factors have been found. 


Thus: 
180 = 2%2%3*3*5%1 = 242 * 3%3 * 5 


The program presented here uses this algorithm. 
COMMANDS 


Key in the program and RUN. 
Enter the number to be factorized. 


P94 


410 
420 
430 


470 


Factorization 


REM FACTORIZATION 
REM xxkkkkkkkk kkk 
REM 
COLOR 0,2:REM WHITE PAPER 
COLOR 1,1:REM BLACK INK 
COLOR 4,15,1=REM BLUE BORDER 
SCNCLR 
PRINT=PRINT: PRINT 
PRINT TAB(13)"FACTORIZATION" 
PRINT TAB(15) xx kkk Rk kK 
PRINT: PRINT 
PRINT TAB(4)"THIS PROGRAM CAN BE USED TO" 
PRINT TAB(4)"*FACTORIZE A POSTIVE INTEGER INTO" 
PRINT TAB(4)"'PRIME FACTORS." 
PRINT 
PRINT TAB(4)"IN ITS PRESENT FORM THE PROGRAM" 
PRINT TAB(4)"“USES ONLY THE PRIMES LESS THAN" 
PRINT TAB(4)"'100." 
PRINT:PRINT 
PRINT TAB(4): INPUT''NUMBER TO BE FACTORIZED"' -N 
IF N<2 THEN RUN: REM TRIVIAL ENTRIES OF 1 OR 2 IGNORED 
N=INTCABS(N) )=2Q=N ; 
D=100>REM CHANGE THIS LINE TO ALTER THE PROGRAM'S RANGE 
DIM F(D)=DIM I(D) 
REM & kok kok kk kk kkk ek kk kk tek i 
REM FIND THE INDICES OF THE FACTORS 
FOR K=2 TO D 
=. DO 
: T=Q-INT(Q/K) *K 
: IF T=0 THEN F(K)=12 10K )=1(K)+12Q=INT(Q/K) 
- LOOP UNTIL T<>0 
NEXT 
REM IF THERE IS A 1 IN THE KTH 
REM POSITION OF THE FACTOR ARRAY 
REM THEN K IS A FACTOR AND ICK) IS 
REM THE INDEX OF THAT FACTOR. 
REM KAKKKKEKKEKKKKKKKKK KK KKK RI KK 
REM THE NEXT SECTION OF CODE WRITES 
REM OUT THE FACTORIZATION. NOTE 
REM THAT THE FIRST 1 IS WRITTEN 
REM JUST TO TIDY UP THE DISPLAY, 
REM EVEN THOUGH IT MIGHT NOT BE 
REM CONSIDERED A PRIME NUMBER. 
SCNCLR=PRINT: PRINT:PRINT 
C=1:A$="1" 
FOR K=2 TO D 
= BS=" *"+STRS(K) +" +MIDSCSTRSCI(K))>2) 
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480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
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> IF F(K)=1 THEN AS=AS+BS$:C=C*K*I (K) 
NEXT 

REI Rk RI RII II IORI I IIR II III ICH 

IF C=>N THEN GOSUB 670 

IF C<N THEN GOSUB 780 

PRINT: PRINT 

PRINT TAB(8):INPUT''ANOTHER RUN (Y/N)" YS 
IF ASC(Y$)=89 THEN RUN 


END 
RENE I III IR ek 


REM RIO IORI IIR ROI to 


REM 

REM KKAKKKKKKKKKKEK 
REM * x 
REM *x* SUBROUTINES *« 
REM * * 
REM KAKKKEKKKKK KK KK 
REM 


REM FACTORIZATION OK 

PRINT TAB(4)"THE PRIME FACTORIZATION OF" 
PRINT 

PRINT TAB(3)N 

PRINT 

PRINT TAB(4)"IS:" 

PRINT 

PRINT TABC(4)AS$ 


RETURN 
REM I IIRC IORI IORI OIC I a 


REM ke RR III I III a I ae ae 

REM FACTORIZATION INCORRECT 

PRINT TAB(4)"EITHER THE NUMBER HAS A PRIME" 
PRINT TAB(4)"FACTOR GREATER THAN 100 OR THE" 
PRINT TAB(4)"ROUNDING ERRORS OF THE MICRO" 
PRINT TAB(4)"'HAVE MUDDLED THE CALCULATION.” 


RETURN 
REM I IR I II IRI I IOI I ta a 


REM oe a I RII III TOR II I IOI I He ae 


Factorization 
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P95 Factorial 


In statistics we frequently wish to calculate objects of 
form: 


Nuk GN)! FONG Z ieee See ee, oe Se sae ital 


For example, if we want to know the number of ways 
arranging the letters in the word COMPUTER, then: 


We have 8 ways of choosing the first Letter; 
We have 7 ways of choosing the second Letter; 
We have 6 ways of choosing the third Letter; 


and so on. 
Thus in total we have: 
Bx*7*6%* 5% 4&4 xe 35 * 2 * 1 = 40320 
ways of arranging the Letters of the word COMPUTER. 


Such objects are known as factorials, and are defined 
follows: 


NN CNS De CNR 2 Pe ec 5s ee ee | 


Where ! is the symbol for factorial. 
COMMANDS 


Key in the program and RUN. 
Follow the instructions. 


10 REM FACTORIAL 

20 REM xxxxxkxwx 

30 REM 

40 COLOR 0,2:REM WHITE PAPER 

50 COLOR 1,1:REM BLACK INK 

60 COLOR 4,15,1:REM BLUE BORDER 
70 SCNCLR 

80 PRINT 


the 


of 


as 
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PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GETKE 
REM** 


DO 


DO 


F= 
FO 


NE 


PR 
PR 
PR 
PR 
PR 


PR 
PR 
LOOP 
END 
REM** 
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TAB(13)""! FACTORIAL !" 
TABCAZ)MEeteeeere eye 

= PRINT 

TAB(4)""THIS PROGRAM MAY BE USED TO" 


TAB(4)" EVALUATE THE THE FACTORIAL OF A" 
TAB(4)"POSITIVE INTEGER LESS THAN OR"! 
TAB(4)"EQUAL TO 33." 


TAB(4)""THE PROGRAM USES THE FORMULA!" 
TAB(4)""NI=N*(N-1)*C(N-2)*%. 2.2% 34217." 


TAB(4)""THE LIMITATION OF 33 IS BECAUSE" 


TAB(4)"'OF THE LIMITED RANGE OF NUMBERS" 
TAB(4)""WHICH CAN BE HELD INSIDE A” 
TAB(4) "COMPUTER." 

> PRINT 

TAB(4)"'PRESS ANY KEY TO CONTINUE.” 

Y AS 


KKKKKKKKKKKKKKEKKKKEKEEKEEKKKEK 


SCNCLR 

PRINT: PRINT: PRINT= PRINT 

PRINT TAB(4)"PLEASE ENTER A POSITIVE WHOLE" 
PRINT TAB(4)"NUMBER LESS THAN OR EQUAL TO 33." 
PRINT? PRINT ) 

PRINT TAB(7): INPUT" WHAT IS. YOUR NUMBER" ;NZ 


LOOP UNTIL NZ%Z<34 AND NZ>O 
REMAKKAKKKKAKKKKKKKKEKE REE KK 


1 

R K=1 TO NZ 
F=F*K 

RY: 


REMKKKKKKKKKKKKKKKKKKKKKKKEKER 


INT: PRINT ) 
INT TAB(7)"THE FACTORIAL OF";NZ;"IS:" 
INT 

INT TAB(6)F 

INT TAB(7)"----------------------- 


REMARK AKKKKKKKKKKKKEEKEKKEEKEKEKER 


INT?PRINT: PRINT 
INT TAB(7)2 INPUT" WANT ANOTHER NUMBER (Y/N)";YS 
UNTIL ASCCY$)<>89 


KEKKKKEKKKKEKEKKEEKEKKEKKEKKKEEKE 


Factorial 
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P9G Greatest common divisor 


This program uses the Euclidian Algorithm to compute 
greatest common divisor of two natural numbers. 


COMMANDS 


Key 


in the program and RUN. 


Enter numbers as positive integers. 


320 


REM GREATEST COMMON DIVISOR 

REM KAKKKKAKAKK KAKA KKK KKK KA 

REM 

COLOR 0,2:REM WHITE PAPER 

COLOR 1,1:REM BLACK INK 

COLOR 4,15,1:REM BLUE BORDER 

SCNCLR 

PRINT: PRINT 

PRINT TABCO)"/S/S//S///SSTITISISIITIIITIT TST" 


PRINT TAB(6)"/ GREATEST COMMON DIVISOR /" 
PRINT TABCG) SSIS IT IISISITISSTS ALATA 

PRINT =PRINT 

PRINT TAB(4)"'THIS PROGRAM USES THE EUCLIDEAN" 
PRINT TAB(4)"ALGORITHM TO COMPUTE THE GREATEST" 
PRINT TAB(4)"'COMMON DIVISOR OF TWO NATURAL" 
PRINT TAB(4)"NUMBERS." 

PRINT =PRINT 

PRINT TAB(10): INPUT" FIRST NUMBER'';X1 

PRINT 

PRINT TAB(10):INPUT'SECOND NUMBER'';X2 
REMAKKKKKAKKKKAKKKKAKKKE KKK KKK K 

X1=ABS CINT(X1) ) 2 A=X1 

X2=ABS CINT(X2) )=2B=X2 

IF A=0 OR B=O THEN RUN: PREVENT DIVISION BY ZERO 
IF A<B THEN T=B:B=A:A=T:REM A IS THE LARGER NUMBER 
REM A AI I I I I RIOR I I IO TOK I 

REM THE FOLLOWING IS THE EUCLIDIAN ALGORITHM: 
DO 

> R=A-CINTCA/B))*B2REM REMAINDER 

> Q=INTC(A/B):REM QUOTIENT 

- A=B:B=R 

LOOP UNTIL R=0 


the 
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REM AO kk ok 


SCNCLR 

PRINT: PRINT: PRINT: PRINT 

PRINT TAB(9)"THE GREATEST COMMON" 
PRINT TAB(9)"DIVISOR OF" 

PRINT 

PRINT TAB(8)X1;"AND"’ 

PRINT 

PRINT TAB(8)X2;"1S:" 

PRINT 

PRINT TAB(8)A 

PRINT: PRINT 

PRINT TAB(9):2 INPUT" ANOTHER RUN (Y/N)";Y$ 
IF ASCCY$)=89 THEN RUN 

END 


REM AKA KK KKKEAKKKKKKKEKKKKKKEKKKKKK 
REM AAA KK KKKKKEKKKAKKKKAKKKAKKKKK 
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P97 Polynomial multiplication 


This program allows the user to multiply two polynomials 
together. 


Example 
Multiply (2*x*x + 3*x + 2) by (x + 1) 


If this has to be done by hand we proceed as follows: 


This can be a rather time consuming exercise when the 
polynomials become Large. This program takes all the _ work 
out of it. 


The Commodore 16, in common with most other micros, cannot 
express polynomials in a very satisfying manner, but bear 
with this and the algorithm can be very useful. 


COMMANDS 


Key in the program and RUN. 
Follow instructions, keying in the parameters as prompted. 


10 REM POLYNOMIAL MULTIPLICATION 
20 REM 1x qa RR IR RII I Ok 
30 REM 

40 COLOR Q,2:REM WHITE PAPER 

50 COLOR 1,1:REM BLACK INK 

60 COLOR 4,15,1:REM BLUE BORDER 
70 SCNCLR 
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80 PRINT:PRINT 

90 PRINT TAB(7)"'POLYNOMIAL MULTIPLICATION" 

100 PRINT TABC 7) Xa xk eek eka KKKKKKKREK 

110 PRINT 

120 PRINT TAB(4)''THIS PROGRAM CAN BE USED TO FIND” 
130 PRINT TAB(4)'"'THE RESULT OF MULTIPLYING TWO" 
140 PRINT TAB(4)''POLYNOMIALS TOGETHER." 

150 PRINT 

160 PRINT TAB(4)'"'THE POLYNOMIALS ARE OF THE FORM:" 
170 PRINT 

180 PRINT TAB(4)"'P(X)=ACO) *X*O+AC 1) *X*14A (2) *X%2" 
190 PRINT TAB(9)"'+....+ACN)*X“N" 

200 PRINT 

210 PRINT TAB(4)''Q(X)=B(O) *X*0+B( 1) *X*14+B(2) *X%2" 
220 PRINT TAB(9)"'+....+B(M)*X“M" 

230 PRINT 

240 PRINT TABC(4)''AND THE RESULT IS:"' 

250 PRINT 

260 PRINT TAB(4)"P(X)*Q(X)=C (0) *X*0+C (1) *X*1#C(2)" 
270 PRINT TAB(14)"*X*2+..+C(M+N) *X“(M4tN)" 

280 PRINT: PRINT 

290 PRINT TAB(7)"'PRESS ANY KEY TO CONTINUE." 

300 GETKEY A$ 

310 REMAAKARARKAKAKKKKKKEKKKKKKKKKKKEK 

320 SCNCLR: PRINT: PRINT: PRINT: PRINT 

330 PRINT TAB(4)''YOU ARE REQUIRED TO ENTER ONLY" 
340 PRINT TAB(4)''THE DEGREE AND THE COEFFICIENTS" 
350 PRINT TAB(4)"OF EACH POLYNOMIAL." 

360 PRINT: PRINT 

370 PRINT TAB(7)''PRESS ANY KEY TO CONTINUE.” 

380 GETKEY A$ 

390 REMAAKAKKRKAKKAKKKKKKKEEKEKKKKKKKEK 

400 DIM AC50)=2DIM B(50):DIM C¢(100) 

410 REM POLYNOMIALS OF DEGREE > 50 NOT ACCEPTED 
420 REM THIS IS ABOVE ANY NORMAL PRACTICAL LIMIT 
43D REMAAAKKARKKKAKKKEKKKEKKKKKKKKKEKE 


440 DO 

450 =: bdO 

460 : SCNCLR=PRINT=- PRINT: PRINT=PRINT 

470 : PRINT TAB(9)"WHAT IS THE DEGREE OF" 
480 : PRINT TAB(9):INPUT''POLYNOMIAL 1°7NZ 


490 =: LOOP UNTIL NZ>O AND NZ<51 
900 =: FOR K=O TO NZ 


510% A(K)=0 
520 : PRINT 
550°: PRINT TAB(9)"COEFFICIENT' -K;"="7 


540 : INPUT ACK) 


For 


550 
560 


920 : 
930 : 


940 : 


980 


Polynomial multiplication 


NEXT 

REMAKKKKKKKKRKKKKKEKKKKKKKKKK 

DO 
SCNCLR: PRINT: PRINT: PRINT: PRINT 
PRINT TABC9)"WHAT IS THE DEGREE OF” 
PRINT TABC9):INPUT’POLYNOMIAL 2";MZ 


LOOP UNTIL MZ>O AND MZ%<51 
FOR K=0 TO MZ 
B(K)=0 
PRINT 
PRINT TABC9) "COEFFICIENT" 7K; "=" 
INPUT B(K) 
NEXT 


1d LLL L LEE LECCE LOCC E LCL 
FOR K=1 TO MZ+NZ:C(K )=0: NEXT 
FOR J=0 TO NZ 


FOR K=O TO MZ 
CCKFJ EC CKtJ)FBCK) ACI) 
NEXT 
NEXT 


REM A IIR IR RR RR RR 
SCNCLR: PRINT? PRINT:® PRINT: PRINT 
PRINT'THE RESULT OF MULTIPLYING" 
PRINT 
FOR J=NZ TO O STEP-1 
PRINT ACJ) 2 "AXA" 2 U2 +" 
NEXT 
PRINT CHRS(157)CHRS(32)2REM DELETE LAST + 
PRINT:PRINT''BY": PRINT 
FOR K=MZ TO O STEP-1 
PRINT BCK);"'*X“" 2K "4" 
NEXT 
PRINT CHRS(157)CHRS$(32)2REM DELETE LAST + 
PRINT: PRINT'IS": PRINT 
FOR L=MZ+NZ TO O STEP-1 
PRINT (GCL) S°sXKo SL es 
> NEXT 
> PRINT CHRSC157)CHRS$(32):REM DELETE LAST + 
REM I I I IR RC a kK 
PRINT:?PRINT 
> PRINT TABC 10): INPUT''ANOTHER CY/N)";YS 
LOOP UNTIL ASCCY$)<>89 
END 


REM KA KKKKKK KKK KRKKKKKKKEKKKKKKKKK 
REM AKAKKKKKKKKKKREKKKKKKKKKKKKKKK 


rag | 
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P98 Secant method 


This program can be used to find a root of a function of a 
single variable. The Secant method can be interpreted 
geometrically as follows: 


Consider the diagram: 
y 


y =f(x) 


ft (xr) 


ee 
root 






If xr and xr-1 Lie on either side of a root we can draw the 
secant between the points (xr-1,f(xr-1)) and (xr,f(xr)). The 
secant cuts the x-axis at the point xrt+1. Let xrt+1 be the 
new approximation. 


Then by similar triangles: 


oa es cs I Xr ~ r+ 
ERX A) f(x) 
oe nae fx) aa x4? 


f(x ) - fx ) 
r ral 
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The same relationship’ can be formed even if both 
approximations Lie on the same side of the root. 


COMMANDS 


Key in the program and RUN. 
Enter function and initial approximations when required. 
Enter accuracy when prompted. 


10 REM SECANT METHOD 

20 REM Kx KKKKKKKKKKK 

30 REM 

40 COLOR 0,2:REM WHITE SCREEN 

50 COLOR 1,1:REM BLACK INK 

60 COLOR 4,15,1:REM BLUE BORDER 

70 SCNCLR 

80 CHAR,13,2,''SECANT METHOD" 

90 CHAR, 13,3, XREKKK KKK KR RRR 

100 CHAR,4,6,"'THIS PROGRAM USES THE SECANT"” 

110 CHAR,4,7,''METHOD TO FIND THE ROOT OF AN" 
120 CHAR,4,8,' EQUATION.” 

130 CHAR,4,10,"'NOTE THAT THE METHOD WILL ATTEMPT" 
140 CHAR,4,11,"TO FIND A ROOT WITHIN AN INTERVAL" 
150 CHAR,4,12,"EVEN IF NO ROOT EXISTS." 

160 CHAR,7,15,""PRESS ANY KEY TO CONTINUE.” 

170 GETKEY A$ 

18D REMK&K AK KK AKAKKKKKKKKKAKKKKEKKEKKEKK 

190 SCNCLR 

200 CHAR,4,3,''THE METHOD REQUIRES THAT YOU" 

210 CHAR,4,4,"INPUT THE FUNCTION, THE RANGE OF" 
220 CHAR,4,5,"'X VALUES WITHIN WHICH THE ROOT" 
230 CHAR,4,6,"LIES AND THE REQUIRED ACCURACY." 
240 CHAR,7,10,''PRESS ANY KEY TO CONTINUE.” 

250 GETKEY AS 

ZOD REMKKKKKKKKKKKKKKKAKKEKKKKKKKK KKK 

270 SCNCLR 

280 CHAR,4,2,''TO INPUT THE FUNCTION PLEASE” 
290 CHAR,4,3,"'TYPE IT IN DIRECTLY AFTER" 

300 CHAR,4,5,'°410 DEF FNA(X)=" 

310 CHAR,4,7,''THEN PRESS RETURN." 

320 CHAR,4,9,"'AFTER YOU HAVE DONE THIS TYPE IN" 
330 CHAR,4,11,"RUN 410" 

340 CHAR,4,13,"THEN PRESS RETURN. USE THE CURSOR" 
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CHAR ,4,14,"CONTROL KEYS TO POSITION THE" 
CHAR,4,15,"CURSOR DIRECTLY AFTER THE = SIGN" 
CHAR,4,18,"410 DEF FNACX)="' 

PRINT:PRINT 

STOP 

REMARK R II II OI ROI ICI IOICI  II I He 


REM THIS LINE IS REPLACED BY THE FUNCTION ENTERED 
14 LLL LLL LET 
DO 
SCNCLR 
PRINT: PRINT 
PRINT TABC8):INPUT''FIRST POINT- X=""3P1 
PRINT 
PRINT TABC8):2INPUT'SECOND POINT- X="'sP2 
LOOP UNTIL P1<>P22:REM ZERO RANGE NOT ACCEPTED 
PRINT 
PRINT TAB(8):INPUT'ACCURACY (+ OR -)"ZAC 
PRINT: PRINT 
REMI III III IO Ik 
FOR R=1 TO 40 
> F1=FNAC(P1):2F2=FNAC(P2) 

P3=P2-F2*(P2-P1)/(F2-F 1) 

P1=P2:P2=P3 
: IF ABS(P2-P1)<AC THEN GOSUB 740: F=1:R=40 
NEXT 
IF F=Q THEN GOSUB 820 
REM IIIOIIII I I 
PRINT: PRINT 
PRINT TAB(8):INPUT''ANOTHER RUN C(Y/N)"'ZYS 
IF ASC(Y$)=89 THEN RUN 


END 
REM 
REM kkk kkk kkk kkk kkk 
REM * * 
REM * SUBROUTINES * 
REM * * 
REM kkk kk kkk kk kkk kek 
REM 


REM ROOT FOUND WITHIN LIMITS 
PRINT TAB(8)"ROOT IS";P2 
PRINT 

PRINT TAB(8)"AT ITERATION" 
PRINT TAB(8)"'NUMBER"';ZR 


RETURN 
REM RR IR RK ROR RRR I RK 


REM RI RK RK RIOR IK RK IK 
REM ROOT NOT FOUND 


OPC-S 


Secant method BAS 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


RETURN 


TAB(8)"ROOT NOT FOUND AFTER" 
TAB(8)"40 ITERATIONS." 


TAB(8)"IF ROOT EXISTS NEAR" 
TAB(8)""THE RANGE ENTERED," 
TAB(8)"IT LIES BETWEEN:" 


TAB(7)P1 
TAB(8) "AND" 
TAB(7)P2 


REM KAAKKKKKKKKAKKKKKKEKEKEKKEKEKEEKKKKK 
REM KKK KKKKAKKKKKKEKKEKKKKKKKKKE 


alo 


P99 Method of bisections 


The method of bisections is based on the use of sign changes 
to find a root of a function. 


Consider the following diagram: 


(x) 


xr—4 xm x 
9 § 


If we have two points, xr and xr-1, such that fxr) = and 
f(xr-1) have different signs, then there is a root between xr 
and xr-1. We then evaluate the function at the mid _ point, 
xm, between xr and xr-1. If xm=0 then we have ae root. 1 § 
SGNCfCxm)) does not equal SGN(f(xr-1)) then the root. Lies 
between xm and xr-1. Otherwise the root Lies between xm = and 
XC 


That is the idea behind the method of bisections, which is 
used in this program. 


COMMANDS 


Key in the program and RUN. 

Enter the function and the end points of the’ interval 
straddling the root when prompted. 

Enter the accuracy desired. 


P99 Method of bisections 


10 REM METHOD OF BISECTIONS 

20 REM KKK KKKKKKKKKKEKEKKK 

30 REM 

40 COLOR 0,2:REM WHITE SCREEN 

50 COLOR 1,1:REM BLACK INK 

60 COLOR 4,15,1:REM BLUE BORDER 

70 SCNCLR 

80 CHAR,9,2,"METHOD OF BISECTIONS" 

90 CHAR, 9 3, “XRKKKKKKKKKKKKK KKK KK 

100 CHAR,4,6,"THIS PROGRAM USES THE METHOD OF'' 
110 CHAR,4,7,"BISECTIONS TO FIND THE ROOT OF" 
120 CHAR,4,8,"AN EQUATION." 

130 CHAR,4,10,"NOTE THAT THE METHOD WILL ATTEMPT’ 
140 CHAR,4,11,"TO FIND A ROOT WITHIN AN INTERVAL’ 
150 CHAR,4,12,"EVEN IF NO ROOT EXISTS." 

160 CHAR,7,15,"PRESS ANY KEY TO CONTINUE." 

170 GETKEY A$ 

180 REM XXKKKKEKKKKKEKKKKKKKKKKKKKEKKKE 

190 SCNCLR 

200 CHAR,4,3,"THE METHOD REQUIRES THAT YOU" 

210 CHAR,4,4," INPUT THE FUNCTION, THE RANGE OF" 
220 CHAR,4,5,"X VALUES WITHIN WHICH THE ROOT" 
230 CHAR,4,6,"LIES AND THE REQUIRED ACCURACY." 
240 CHAR,7,10,"PRESS ANY KEY TO CONTINUE." 

250 GETKEY AS 

260 REMXKKXKKKKKKKKKKKEKKKKKKKKKKKKKKE 

270 SCNCLR 

280 CHAR,4,2,"TO INPUT THE FUNCTION PLEASE" 

290 CHAR,4,3,"TYPE IT IN DIRECTLY AFTER" 

300 CHAR,4,5,"410 DEF FNA(X)=" 

310 CHAR,4,7,"THEN PRESS RETURN." 

320 CHAR,4,9,"AFTER YOU HAVE DONE THIS TYPE IN" 
330 CHAR,4,11,""RUN 410" 

340 CHAR,4,13,''THEN PRESS RETURN. USE THE CURSOR" 
350 CHAR,4,14,"CONTROL KEYS TO POSITION THE" 

360 CHAR,4,15,"CURSOR DIRECTLY AFTER THE = SIGN" 
370 CHAR,4,18,"410 DEF FNACX)="' 

380 PRINT:PRINT 

390 STOP 


LOD REMAAAAKAKKKKKKKKKKKKKKRKKKKKKKKE 


410 REM THIS LINE IS REPLACED BY THE FUNCTION ENTERED 
L20 REM AAKARR KKK KKK KKK RR RRR KK KK IK 


430 DO 
440 SCNCLR 
PRINT: PRINT 


PRINT TAB(8):INPUT"FIRST POINT- X=""2P1 
PRINT 


A 

WI 

© 
ao of ef an 


all 
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480 : PRINT TAB(8): INPUT'SECOND POINT- =o Pe 

490 LOOP UNTIL P1<>P2:REM ZERO RANGE NOT ACCEPTED 
500 PRINT 

510 PRINT TAB(8): INPUT"ACCURACY (+ OR -)";AC 

520 PRINT: PRINT 

530 REMKRKK KKK KK AAR RRR K KK KE KI KK IK IK 

540 FOR R=1 TO 40 

550 : T=(P1+P2)/2:K=P1 

560 : IF SGNCFNACT))=SGNCFNACK)) THEN P1=TSELSE P2=T 
570 : IF FNACT)=0 THEN PRINT TABC8)"SOLUTION IS ";T 
580 : IF FNA(T)=0 THEN R=40:SOL=3:ELSE SOL=0 

590 : DO WHILE SOL=0 


600 : IF SGNCFNACP1))=SGNCFNACP2)) THEN FG=1:ELSE FG=0 
610 : IF ABS(P1-P2)<AC AND FG=0 THEN R=40:SOL=1 

620 : IF SOL=0 THEN SOL=2 

630 : LOOP 

640 NEXT 


650 ON SOL GOSUB 790,880 

660 REM KKK KKKKKKKKKKKEKKKKKKEKKKK 

670 PRINT: PRINT 

680 PRINT TAB(8): INPUT"ANOTHER RUN (Y/N)"S YS 
690 IF ASCCY$)=89 THEN RUN 


700 END 
710 REM 
720 REM KKKKKKKKKKEK EK 
730 REM * * 
740 REM * SUBROUTINES * 
750 REM * * 
760 REM KkKKKKKKKKKKKKKK 
770 REM 


780 REM ROOT FOUND WITHIN LIMITS 
790 PRINT TAB(8)"'ROOT LIES BETWEEN" 
800 PRINT 

810 PRINT TAB(7)P1 

820 PRINT TAB(8)''AND" 

830 PRINT TAB(7)P2 


840 RETURN 
B50 REMARK KKK ARIK RRR RK KK IK IK RR KICK 


B60 REM I IR RII a a Ik 
870 REM ROOT NOT FOUND 

880 PRINT TABC(8)"'ROOT NOT FOUND AFTER" 
890 PRINT TAB(8)''40 ITERATIONS." 


900 RETURN 
910 REM KK KK KRKK KKK HEKKKKKKKKKKKKKKKKKK 


G20 REM KKK KKK KKK KKEKKKEKKKAKK KKK KK KKK 


alg 
P100 Trapezoidal rule 


This program uses the trapezoidal rule to evaluate a definite 
integral of the form: 


b 
I = | f (x )dx 
a 


Thus the program requires as input: 


f(x) 
a and b 


A definite integral can be considered to be the area under 
the graph of a function. The trapezium rule approximates 
this area by a series of trapeziums, as in the’ following 
diagram: 


f(x) 


280 P100 Trapezoidal rule 


COMMANDS 


Key in the program and RUN. 
Follow the instructions. 


REM TRAPEZOIDAL RULE 

REM AX&KKKKKAKKKKK KKK 

REM 

COLOR 0,2:REM WHITE SCREEN 
COLOR 1,17:REM BLACK INK 

COLOR 1,15,1:REM BLUE BORDER 
SCNCLR 

PRINT: PRINT 

PRINT TAB(11)"'TRAPEZOIDAL RULE” 


100 PRINT TAB(11) XR kx KR KKK KKKKEK" 

110 PRINT 

120 PRINT TAB(4)'"'THIS PROGRAM USES THE TRAPEZOIDAL" 
130 PRINT TAB(4)"RULE TO EVALUATE A DEFINITE" 
140 PRINT TAB(4)" INTEGRAL." 

150 PRINT 

160 PRINT TAB(4)"YOU ARE REQUIRED TO ENTER:" 
170 PRINT 

180 PRINT TAB(8) ‘1. YOUR FUNCTION OF X." 

190 PRINT 

200 PRINT TAB(8)"2. THE RANGE OF VALUES" 

210 PRINT TAB(11)"OF X OVER WHICH YOU" 

220 PRINT TAB(11)"WISH TO EVALUATE THE" 

230 PRINT TAB(11)"* INTEGRAL." 

240 PRINT 

250 PRINT TAB(8)"3. THE NUMBER OF SUB-" 

260 PRINT TAB(11)" INTERVALS." 

270 PRINT 

280 PRINT 

290 PRINT TAB(7)"'PRESS ANY KEY TO CONTINUE." 
300 GETKEY A$ 

310 REMR KK KKAKKEKKKKKKKKEKKEKKKEKKKKKKKKK 

320 SCNCLR: PRINT: PRINT 

330 PRINT TAB(4)"'TO INPUT THE FUNCTION PLEASE" 
340 PRINT TAB(4)"TYPE IT IN DIRECTLY AFTER" 
350 PRINT 

360 PRINT TAB(4)"520 DEF FNA(X)=" 

370 PRINT 

380 PRINT TAB(4)"'THEN PRESS RETURN." 


PRINT 
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400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 


PRINT TAB(4)"AFTER YOU HAVE DONE THIS TYPE IN" 
PRINT 

PRINT TAB(4)"RUN 520" 

PRINT 

PRINT TAB(4)''THEN PRESS RETURN. USE THE CURSOR" 
PRINT TAB(4)"CONTROL KEYS TO POSITION THE” 
PRINT TAB(4)"'CURSOR DIRECTLY AFTER THE = SIGN" 
PRINT:PRINT 

PRINT TAB(4)"520 DEF FNA(X)=" 

PRINT: PRINT 

STOP 

REMXXAKKKKKKKKKKKKKKKKAKKKKKKKEKEK 

DEF FNA(X)=X 

REM KKK KAAKKKKKAKKKKKKKKKKKKKKKKKE 

bO 

SCNCLRZ PRINT: PRINT 

PRINT TAB(6):INPUT''LOWER VALUE OF X-RANGE"';A 
PRINT 

PRINT TAB(6): INPUT'HIGHER VALUE OF X~RANGE'';B 
LOOP UNTIL BD>A 

PRINT 

PRINT TAB(6):INPUT''NUMBER OF POINTS" ;NZ 

IF NZ<2 THEN NZ=2:REM GUARD AGAINST SILLY ENTRIES 
REM KKKKAKAKKKKKKKKKKKKKKKKKKKKEKE 

PRINT:PRINT 

H=( ABS(B~-A) )/NZ 

LO=FNACA)/2 

HI=FNA(B)/2 

X=A:K=0 

FOR J=1 TO NZ-1 

: X=Xt+H 

> K=KtFNACX) 

NEXT 

IT=C(LOtHI+K) *H 

PRINT TAB(8)" INTEGRAL =";1T 

PRINT TAB(8) "9 ret rence er ce ce --- 

PRINT-PRINT 

REM XAKAKKKKKKKKKKKKKKKKKKKKKAKKKKK 

PRINT TAB(8):INPUT''ANOTHER RUN (Y/N) YS 

IF ASC(Y$)=89 THEN RUN 


END 
REM KK IK RRR RRR RRO IR RRR 
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P101 Simpson’s rule (bonus program) 


Simpson's rule is rather more complicated than the 
trapezoidal rule. Here we use a quadratic curve, rather than 
a straight Line, between the end points of the interval. 
This leads to the following rule: 


Pe came © oop ee ef (x5) + 4f(x_) 


2 h 
| Foddx =f ix, , 3 


+ 2T(x) tuset FG) 
4 n 


where XQ = a, X, =b (n is even), Avera t the 


COMMANDS 


Key in the program and RUN. 

Enter the function as instructed. 

Enter a and b when prompted. 

Enter an even number of points as requested. If you enter an 
odd number, 1 will be added. 


10 REM SIMPSON'S RULE 

20 REM xxxxxxxxkkxkkkkK 

30 REM 

40 COLOR O,2:REM WHITE SCREEN 

50 COLOR 1,12:REM BLACK INK 

60 COLOR 1,15,1:REM BLUE BORDER 

7Q SCNCLR 

80 PRINT: PRINT 

90 PRINT TAB(12)"SIMPSON'S RULE" 

100 PRINT TAB( 12)" kxxkxk kek Rae" 

110 PRINT 

120 PRINT TAB(4)"THIS PROGRAM USES SIMPSON'S" 
130 PRINT TAB(4)"RULE TO EVALUATE A DEFINITE" 
140 PRINT TAB(4)'' INTEGRAL." 

150 PRINT 
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PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


TAB(4)"YOU ARE REQUIRED TO ENTER?" 
TAB(8) "1. YOUR FUNCTION OF X." 


TAB(8)"2. THE RANGE OF VALUES" 
TAB(11)"OF X OVER WHICH YOU" 
TAB(11)"WISH TO EVALUATE THE" 
TAB( 11)" INTEGRAL." 


TAB(8)"'3. THE NUMBER OF SUB-"' 
TAB(11)" INTERVALS (THIS MUST" 
TAB(11)"BE EVEN)." 


PRINT: PRINT 

PRINT TAB(7)"PRESS ANY KEY TO CONTINUE." 
GETKEY AS 

REM Xk a aKa KK KKK KAKA K RIK KR KKK RRR KK 
SCNCLR:PRINT- PRINT 

PRINT TAB(4)"TO INPUT THE FUNCTION PLEASE" 
PRINT TAB(4)"TYPE IT IN DIRECTLY AFTER" 

PRINT 

PRINT TAB(4)"520 DEF FNACX)=" 

PRINT 

PRINT TAB(4)"THEN PRESS RETURN." 

PRINT | 

PRINT TAB(4)"AFTER YOU HAVE DONE THIS TYPE IN” 
PRINT 

PRINT TAB(4)"RUN 520" 

PRINT 

PRINT TAB(4)"'THEN PRESS RETURN. USE THE CURSOR" 
PRINT TAB(4)"’CONTROL KEYS TO POSITION THE" 
PRINT TAB(4)"CURSOR DIRECTLY AFTER THE = SIGN" 
PRINT: PRINT 

PRINT TAB(4)"'520 DEF FNA(X)=" 

PRINT: PRINT 

STOP 

REMARK KAKA RK KR KK KKK KKK KR II 


REM THIS LINE IS REPLACED BY THE FUNCTION ENTERED 
REM AK RA KA AK KKK K RK KKK KKK KARE KKK 

DO 

> SCNCLR=PRINT: PRINT 

PRINT TAB(6):INPUT"LOWER VALUE OF X-RANGE";A 
PRINT 

> PRINT TABC(6)2INPUT"HIGHER VALUE OF X-RANGE";B 
LOOP UNTIL B>A 

PRINT 

PRINT TAB(6):INPUT''NUMBER OF POINTS"';NZ 

IF NZ<4& THEN NZ=4:REM GUARD AGAINST SILLY ENTRIES 
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284 


630 
640 
650 
660 
670 
680 
690 
700 


710% 


720 


1350.3 
740 : 


750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 


P101 Simpson's rule (bonus program) 


IF NZ-CINT(N%Z/2) )*2<>0 THEN NZ=NZ4+12REM ENSURE NZ EVEN 
REMK AKA K RAK RIK KKK RK REI KK RK I KK 
PRINT: PRINT 

H=(ABS(B-A))/NZ 

FI=FNACA)/2 

LA=FNA(B)/2 

X=A2 EV=0: 0D=0 

FOR: J=1 TO NZ-S STEP 2 

X=X+H 

> OD=OD+FNA(X) 

X=X+H 

EV=EV+FNA(X) 

NEXT 

X=Xt+H 

OD=OD+FNA(X) 
IT=(FIF+LA+4*0D+2*EV) *H/3 

PRINT TAB(8)" INTEGRAL ="7I1T 

PRINT (AGCG)" soc eee ta et ee 
PRINT=PRINT 

REM Ak A a Ra IR IK II RIK IR II I TR I IK 
PRINT TAB(8):INPUT'ANOTHER RUN (Y/N)";7YS 
IF ASC(Y$)=89 THEN RUN 

END 


REM i kk Ia IR IK IK RK AK I IH IIT I ICR 
REM x ka RI KI IK KKK RK II Kk kk 


085 
P102 The last one (bonus program) 


This is a rather interesting program. Once you have run the 
program, have a look at the listing. 


COMMANDS 


Key in the program and RUN. 


10 REM THE LAST ONE 

20 PRINT CHR$(147):2PRINT:PRINT: PRINT: PRINT: PRINT: PRINT: PRINT 
30 PRINT "THIS IS A SOMEWHAT SILLY PROGRAM" 
40 PRINT "ALL IT DOES IS DISAPPEAR !!!!" 

50 PRINT: PRINT:PRINT "PRESS ANY KEY TO SEE" 
60 GET A$:IF AS=""" THEN 60 

70 GRAPHIC 1,1 

80 BG=INTCRND(1)*16+1) 

90 FG=INTCRND(1)*16+1)21F BG=FG THEN 80 

100 COLORO,BG: COLOR 1,FG 

110 VOL 8 

120 FOR B=0 TO 14 

130 X=B*8: Y=B*8 

140 BOX1,X,Y,319-X,199-Y 

150 FG=FG+1 

160 IF FG>15 THEN FG=FG-15 

170 COLOR 1,FG 

180 SOUND 1,1,0 

190 SOUND 2,1,0 

200 SOUND 1,ABS(1000*SIN(B)),B*2 

210 SOUND 1,ABS(1000*C0S(B)),B*2 

220 NEXT B 

230 NEW 

240 END 
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